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Program Listings In The Transactor 

All programs listed in The Transactor will appear as they would on your screen in Upper/Lower case 
mode. To clarify two potential character mix-ups, zeroes will appear as '0' and the letter "o" will of course 
be in lower case. Secondly, the lower case L ('!') has a flat top as opposed to the number 1 which has an 
angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, or 
function keys. These will also be shown exactly as they would appear on your screen, but they're listed 
here for reference. Also remember: CTRL-q within quotes is identical to a Cursor Down, et al. 

Occasionally programs will contain lines that show consecutive spaces. Often the number of spaces you 
insert will not be critical to correct operation of the program. When it is, the required number of spaces 
will be shown. For example: 



print 



flush right - would be shown as - print [10 spacesjflush right 



Cursor Characters For PET / CBM / VIC / 64 



Down - J 

up n 

Right - n 
Left - [lit] 
RVS 
RVS Off- 



Insert - 

Delete - Qj 
Clear Scrn - Q 
Home - 1 

STOP 



Colour Characters For VIC / 64 



Black - 
White - 
Red - 
Cyan - |Cyn] 
Purple - [Purj 
Green - Q 
Blue - B 
Yellow- [Yel] 



Orange - 
Brown 

Lt. Red - 
Grey 1 

Grey 2 - 

Lt. Green - 

Lt.Blue - 

Grey 3 - [Gr3] 



Function Keys For VIC / 64 



Fl 
F2 
F3 
F4 



F5 
F6 
F7 
F8 



V 
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Of Mice And Metaphors 

We may be at a historical moment in the use of personal computers. 
Operating systems using mice, icons, desk-top metaphors, and win- 
dows seem to be catching on and only time will tell if they become the 
usual way of doing things in the future. We've seen it on Apple's Lisa 
and Macintosh, then the Atari 520ST, and now on the outstanding 
Amiga from Commodore. But is this a go-with-the-latest-computing- 
trend marketing effort, or a real step towards that difficult-to-measure 
goal of increased productivity? 

Take the Icon. Please. Seriously, the concept of having a little picture 
on the screen instead of a word to represent a function is a good one, 
but can also be confusing. It is said that a picture is worth a thousand 
words, but that can be a problem when you want just one specific one. 
Does a jagged line icon in a graphics program indicate line drawing, 
graph plotting, straightening curves, or what? I suppose you could 
point to it to find out, but it would be nice to glance at the screen and 
know your options; key words like 'GRAPH', 'LINES', 'STRAIGHTEN', 
etc. would do the job nicely. Likewise, the word CUT may be clearer 
than a hard-to-visualize (especially on a low-res screen) pair of 
scissors. Words are more universal than pictures in the sense that not 
everyone interprets images in the same way; if you want proof, try 
playing "what do you see in the clouds?" with ten people. Today it 
may sound like a step backwards, but I often prefer good old- 
fashioned words over undecipherable symbols. Didn't mankind dis- 
cover that thousands of years ago? 

Throughout Canada, many of our road signs have gone symbolic. 
When you enter crown land, you may be greeted by a sign covered in 
little stick figures in various positions indicating the intended purpose 
of the land. If instead, the sign read, "hunting, fishing, camping, 
sightseeing. . ." perhaps it wouldn't be necessary to pull over, get out 
of the car and muse, "Hmmm. . . what's that guy doing? Is he using a 
shotgun or a walking stick?. . .". Similarly, the words SLOW and FAST 
on a piece of machinery are no doubt more easily understood than a 
picture of a tortoise and a hare, even if it means learning two words of 
English. 

Which brings up one of the advantages of icons when used properly: 
they are international. Stress when used properly, because the tempta- 
tion for software developers to transmit messages in a cute way 
through the icon is sometimes too great to resist. For example, The 
Amiga comes with a 'Software Demo Package' giving a sneak preview 
at some excellent-looking upcoming software from Electronic Arts. As 
the demo cycles, you can stop it at any time by pressing the right 
mouse button, and while the demo is stopped, an icon containing two 
- what are they? - um, pawprints appears on the screen. Get it? Paws - 
Pause! Ha ha. Cute and clever, and everyone gets a laugh when they 
figure it out or someone explains it to them, but that's the problem: are 
we now doomed to deciphering some unknown programmer's bad 
puns when all we want to do is use a piece of software? At the risk of 



sounding like a spoilsport, there's nothing wrong with a bit of fun, but 
not at the expense of clarity and ease-of-use. 

Enough about Icons; what about software metaphors themselves? The 
simulated desktop using 'windows' makes it easier for the non- 
computer type to get things done with a computer, because it relates to 
something he's familiar with. In a way, that's a big step forward 
because we are teaching machines to adapt to man rather than man to 
adapt to the machines. As a result, computer operation is becoming 
more intuitive rather than more complex. On the other hand, forcing 
a new office tool to behave like an old one in the interest of 
compatibility can be restrictive if the new tool is significantly more 
powerful and flexible. The ideal metaphor would probably mimic the 
human mind, not a human working environment, but that kind of 
software is no doubt many years off. Overall, the same rule applies to 
software metaphors as to icons: they can be good when used reasona- 
bly, but taken too far or used out of context, can be a hindrance. 

I do like the windows themselves. At least, I like the way windows are 
handled on the Amiga - 1 haven't used any other system long enough 
to decide. True, you can lose track of what's behind what, and a lot of 
moving and clicking gets done, but it seems to be the best solution to 
keeping track of multiple tasks around. Still in its infancy, the 
windowed environment will probably get even more powerful and 
automated, and I'll like it even more. 

What about the mouse? In my opinion, fun to use and precise, but isn't 
there a better way to point at something on the screen without 
clearing a space on your desk and still knocking over a cup of coffee 
once in a while? These things need SPACE to be used effec- 
tively, and that's something that there can be a real shortage of - at 
least in my office there is. There's always the trackball, but it's not as 
easy to CLICK, since your hand doesn't stay in one place. The 
alternative, of course, is the keyboard, but I won't say I prefer it to the 
mouse because I'm still having too much fun with the little plastic 
rodent. 

So, at the start of this new age of computing, does it look like Utopia 
ahead? Will any non-computerist businessman or housewife be able 
to buy a computer and a bunch of software, and do all of the things 
that the ads have been telling them they could do? It seems that the 
new operating systems can deliver on that promise, but only if 
software developers use them in the spirit in which they were 
intended. When designed properly, a Mouse/icon-driven Windowed 
environment can be easy to use and enormously productive. When 
used as a gimmick, or when flash prevails over substance, it can be an 
enigma to the user. 




Chris Zamara, Technical Editor 
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Using "VERIFIZER 



99 



The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from 
the pages of The Transactor. It will let you check your work line by 
line as you enter the program, and catch frustrating typing errors. 
The VERIFIZER concept works by displaying a two-letter code for 
each program line which you can check against the corresponding 
code in the program listing. 

There are two versions of VERIFIZER on this page; one is for the 
PET, the other for the VIC or 64. Enter the applicable program and 
RUN it. If you get the message, "***** data error *****", re-check 
the program and keep trying until all goes well. You should SAVE 
the program, since you'll want to use it every time you enter one of 
our programs. Once you've RUN the loader, remember to enter 
NEW to purge BASIC text space. Then turn VERIFIZER on with: 

SYS 828 to enable the C64/VIC version (turn it off with SYS 831 ) 
or SYS 634 to enable the PET version (turn it off with SYS 637) 

Once VERIFIZER is on, every time you press RETURN on a 
program line a two-letter report code will appear on the top left of 
the screen in reverse field. Note that these letters are in uppercase 
and will appear as graphics characters unless you are in upper/ 
lowercase mode (press shift/Commodore on C64/VIC). 

Note: If a report code is missing it means we've editted that line at 
the last minute which changes the report code. However, this will 
only happen occasionally and only on REM statements. 



With VERIFIZER on, just enter the program from the magazine 
normally, checking each report code after you press RETURN on a 
line. If the code doesn't match up with the letters printed in the box 
beside the listing, you can re-check and correct the line, then try 
again. If you wish, you can LIST a range of lines, then type 
RETURN over each in succession while checking the report codes 
as they appear. Once the program has been properly entered, be 
sure to turn VERIFIZER off with the SYS indicated above before 
you do anything else. 

VERIFIZER will catch transposition errors (eg. POKE 52381,0 
instead of POKE 53281,0), but ignores spaces, so you may add or 
omit spaces from the listed program at will (providing you don't 
split up keywords!). Standard keyword abbreviations (like nE 
instead of next) will not affect the VERIFIZER report code. 

Technical info: VERIFIZER resides in the cassette buffer, so if 
you're using a datasette be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities 
goes, VERIFIZER shouldn't cause any problems since it works 
through the BASIC warm-start link and jumps to the original 
destination of the link after it's finished. When disabled, it restores 
the link to its original contents. 



KE 

JF 

LI 

BE 

DH 

GK 

FH 

KP 

AF 

IN 

EC 

EP 

OC 

MN 

MG 

DM 

CA 

NG 

OK 

AN 

GH 

JC 

EP 

MH 

BH 



Listing 1 a: VERIFIZER for C64 and VIC-20 

10 rem* data loader for "verifizer" * 

15 rem vic/64 version 

20cs = 

30 for i = 828 to 958:read a:poke i,a 

40cs = cs + a:next i 

50: 

60if cs<>1 4755 then print"***** data error *****": end 

70 rem sys 828 

80 end 

100: 

1000 data 76, 74, 

1010 data 252, 141, 

1020 data 3,240, 

1030 data 251, 169, 

1040 data 3, 3, 

1050 data 0, 160, 

1060 data 32,240, 



Listing 1 b: PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 



2, 
3, 
2, 



1070 data 133, 90, 
1080 data 232, 208, 229, 56, 
1090 data 32,210,255, 169, 
1100 data 89, 41. 15, 24, 105, 
11 10 data 165, 89, 74, 74, 74, 
1120 data 32,210,255,169, 146, 
11 30 data 32,240,255,108,251, 
1140 data 101, 89,133, 89, 96 



3,165,251,141, 

3, 3, 96,173, 

17,133,252,173, 

99,141, 2, 3,169, 

96,173,254, 1,133, 

0,189, 0, 2,240, 

15, 133, 91,200, 152, 

3,198, 90, 

32,240,255,169, 

18, 32,210,255, 



32,183, 



3, 
3, 
3, 
3, 
89, 
22, 
41, 
16, 



97, 32,210, 

74, 24,105, 

32,210,255, 

0, 165, 91, 



165 

201 

133 

141 

162 

201 

3 

249 

19 

165 

255 

97 

24 

24 



CI 
CF 
LI 
HC 
DH 
GK 
OG 
JO 
AF 
IN 
ON 
IB 
CK 
EB 
HE 
Ol 
JB 
PA 
HE 
EL 
LA 
Kl 
EB 
DM 



10 rem* data loader for "verifizer 4.0" * 

15 rem pet version 

20cs = 

30 for i = 634 to 754:read a:poke i,a 

40cs = cs + a:next i 

50: 

60 if cs<>1 5580 then print"***** data error *****": end 

70 rem sys 634 

80 end 

100: 

1000data 76,138, 2,120,173,163, 2,133,144 

1010data173, 164, 2,133,145, 88, 96,120,165 

1020data145, 201, 2,240, 16,141,164, 2,165 

1030 data 144, 141, 163, 2, 169, 165, 133, 144, 169 

1040data 2,133,145, 88, 96, 85,228,165,217 

1050data201, 13,208, 62,165,167,208, 58,173 

1060 data 254, 1,133,251, 162, 0, 134,253, 189 

1070 data 0, 2,168,201, 32,240, 15,230,253 

1080 data 165, 253, 41, 3,133,254, 32,236, 2 

1090 data 198, 254, 16, 249, 232, 152, 208, 229, 165 

11 00 data 251. 41, 15, 24,105,193,141, 0,128 

11 10 data 165,251, 74, 74, 74, 74, 24,105,193 

1120 data 141. 1.128,108,163, 2,152, 24,101 

1130 data 251, 133, 251, 96 
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Bits and Pieces 



Got an interesting programming tip, short routine, or an unknown 
bit of Commodore triuia?Send it in - if we use it in the Bits & Pieces 
column, we'll credit you in the column and send you a free one- 
year's subscription to The Transactor 



C-64 Input Routine 
With Screen Editing! 



Dale Lambert, 
Tupelo, MS 



This little INPUT substitute allows any characters to be entered 
and also allows full screen editing. It uses the input routine that 
BASIC uses in direct mode. 



Dale's Dazzier 



Try this on the 64: 



1 a = 1 92:b = 200:c = 53270:fori = 1 to1 000step.001 
:pokec,a:pokec,b:next 



1 sys42336:forb = 51 2to592:ifpeek(b)OOthennext 

2 in$ = " n :poke peek(71) + 256*peek(72) + 1 ,0 
:pokepeek(71) + 256*peek(72) + 2,2 

3pokepeek(71) + 256*peek(72),b-512 

:in$ = mid$(in$,1 



Quick Screen Code 
to ASCII Conversion 



Dale Lambert 



This line will convert screen code (in the variable S) to ASCII 
a = (s and 1 27)or((s and 64)*2)or((64-s and 32)*2) 



C-64/VIC20 Mini-Datafier 



Dale Lambert 



This program will quickly and easily make DATA statements for a 
machine-language program. 

All you have to do is put the starting address of the code in variable 
S, put the end address in E, put the sttarting line number of the 
DATA statements in Z, and the amount to increment the DATA line 
numbers by in variable I. For example: 

1 s = 491 52(start):e = 50000(end):z = 1 000(line #):i = 1 0(incr) 

And here's our program: 

1s = 49 152:e = 49400:z=1000:i = 10 

2 pnnt"^^fl"z"data " ;; if s>e then end 

3k = s + 6:ifk>ethenk = e 

4 for s = s to k: print mid$(str$(peek(s)) ( 2) " , " ;: next 
: print chr$(157);chr$(32) :rem 1 left, 1 spc 
print s= s:e= e:z= z + i :i = i :goto2| ; 
:poke631,13:poke632,13:poke198,2:end 



Commodore 64 Meets The Alien 
From The Cheap Sci-Fi Movie 

Give this a listen, Earthlings: 



Giuseppe Amato 



1 s = 54272:a * peek(1 62)and1 99: pokes + 24,1 5 
:pokes + 6,90:pokes + 4,21 pokes + 1 ,a 

2 pokes + 15, abs(99-a):goto1 



VERIFIZER For Tape Users 



Tom Potts 
Rowley, MA 



The following modifications to the Verifizer loader (see the VERIFI- 
ZER page in this issue) will allow VIC-20 and C-64 owners with 
Datasettes to use the verifizer directly (without the loader) and just 
SYS to activate it. 

After running the new loader, you'll have a special copy of the 
verifizer program which can be loaded from tape without disrupt- 
ing the program in memory. 

Just run the program below, pressing PLAY and RECORD when 
prompted to do so (use a rewound tape for easy future access). To 
use the special verifizer that has just been created, first load the 
program you wish to verify or review into your computer from 
either tape or disk. Next insert the special program tape created 
above and be sure that it is rewound, then enter in direct mode: 
OPENl:CLOSEl. Press PLAY when prompted by the computer, 
and wait while the special verifizer loads into the tape buffer. Once 
it has loaded, the screen will show FOUND VERIFIZER.SYS850. To 
activate VERIFIZER, enter SYS 850 (not the 828 as in the original 
program). To de-activate, use SYS 853. These moves in the SYS 
addresses were required because of the method used to store and 
retreive the program in the tape buffer. 
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If you are going to use your tape recorder to SAVE a program, you 
must turn off VERIFIZER first (SYS 853) since VERIFIZER moves 
some of the internal pointers used during a SAVE operation. 
Attempting a SAVE without turning off VERIFIZER first will usually 
result in a crash. 

If you wish to use VERIFIZER again after using the tape, you'll have 
to reload it with the OPENl:CLOSEl commands. 

Make the following additions and changes to the present VERIFI- 
ZER loader listed in the magazine on page 4. 



NB 
AL 

IB 



Line: 

30 for i = 850 to 980: read a: poke i,a 

60 ifcs<>14821 then print" *****data error*****' 

: end 
70 rem sys850 on, sys853 off 

— 80 delete line 

— 100 delete line 

OC 1000 data 76, 96, 3,165,251,141, 2, 

MO 1030data251.169.121.141, 2, 3,169, 

EG 1070data133, 90, 32,205, 3,198, 90, 

BD 2000 a$ - " verifizer.sys850[space] " 

KH 2010 fori = 850 to 980 

GL 2020a$ = a$ + chr$(peek(i)):next 

DC 2030 open 1,1, 1,a$: close 1 

IP 2040 end 



3.165 

3.141 

16,247 



Improved 1541 
Head-Cleaning Program 



David Peterson, 
Irvine, CA 



Volume 6 Issue contained a program by Peter Boisvert which 
turned the 1541's motor on for 60 seconds to allow cleaning the 
head using a cleaning disk. This prompted David Peterson to write 
in with the following improvement. It turns the motor on, then 
steps the head slowly along the surface of the disk to utilize the 
entire cleaning surface. David Peterson explains how it works: 

After turning on the drive motor, the program peeks location $24 in 
drive RAM. This location contains the track number that the read/ 
write head is currently at. After finding the head, the program steps 
it quickly to track 1, then slowly across the disk to track 35. 
Movement of the head is controlled by bits and I of location 
S1C00 in drive RAM. After peeking S1C00, the head is mooed 
outward to track one by cycling bits and 1 of $1 COO. To move the 
head outward the low bits are decremented (say 01 to 00 to 1 1 to 10 
to 01 etc.). To move the head inward to track 35 the two tow bits 
are cyclically incremented. The head is stepped twice for every 
track, since the stepper motor moves the head in 1/2 track steps. 
The NEW at the end of the program is not an attempt at program 
protection, it's there as drive protection. This direct method of 
stepping the head does not update location $24. If the program was 
immediately rerun, the drive head could end up being stepped to 
track 35 or to bump up against the stop at track 0. Therefore use the 
loop in line 280 to control how long the process takes. 

Here's the new cleaning program; make sure you save it before 
running! 



LM 
LD 
Nl 
AL 
EE 
HP 
JD 
EC 
IA 
PH 
EL 
FO 
GN 
CD 
ID 
MH 
BL 
FJ 
EF 
KO 
IH 
FE 
HL 
1M 
FB 
CH 
CG 
CE 
GF 
AF 
JM 

CG 

AP 
FF 
HM 
Fl 
HF 



100 rem* improved 1541 head cleaning prg * 

1 10 prinfflinsert cleaning disk and hit return" 

1 20 geta$:ifa$Ochr$(1 3)then1 20 

1 30 open 1 5,8, 1 5:print#1 5, " m-e " chr$(1 26)chr$(249) 

140 rem locate head 

1 50 print#1 5, " m-r " chr$(24)chr$(0) 

1 60 get#1 5,a$:x = asc(a$ + chr$(0)) 

1 70 print " drive head at track # " x 

180 rem read $1c00 

1 90 print* 1 5, " m-r " chr$(0)chr$(28) 

200 get#1 5,sc$:sc = asc(sc$ + chr$(0)) 

210 rem select bits and 1 

220bt = scand3 

230 rem # tracks to 1 

240sp = 2*(x-1) 

250 rem move head to track 1 

260 print " B|stepping to track # 1 " 

270 for y = 1 to sp 

280bt = bt-1:bt = btand3 

290 s = (sc and 252)or bt 

300 print#15, " m-w" chr$(0)chr$(28)chr$(1)chr$(s) 

310 next y 

320 rem step out to 35 

330 print " stepping out to track # 35. . . " 

340 print* 1 5, " m-r " chr$(0)chr$(28) 

350 get#1 5,a$:sc = asc(a$ + chr$(0)) 

360 bt = sc and 3 

370 for y = 1 to 68 

380 print " Hffltrack # " int(y/2 + 1 ) 

390 print "^BS" 
400bt = bt + 1:bt = btand3 

410s = (scand252)orbt 

420 print#1 5, " m-w " chr$(0)chr$(28)chr$(1 )chr$(s) 
430 ford = 1to220:nextd 
440 next y 

450 print#1 5, " m-e " chr$(232)chr$(249):close1 5 
460 new: rem to prevent re-running without a normal 
disk operation first 



PRINT AT Update 



Stephen Gast, Champaigne. IL 



In the Bits and Pieces column of Volume 6, Issue 3, a C64/VIC20 
PRINT AT command was suggested: 

poke 781 ,row: poke 782,col: sys 65520: print " message " 

The above method utilizes the documented KERNAL routine 
PLOT The general technique is a useful one but can be unreliable 
when accessed through the KERNAL jump table at 65520 ($FFF0). 

If the carry flag is set, the routine will GET the current cursor 
position! Not exactly what we had in mind. To correct this the 
current row and column coordinates should still be placed directly 
into the register storage area in 781 ($030D9 and 782 ($030E). 
Then simply bypass the logic of the cursor get/set routine at $E50A 
and SYS directly to 58636 ($E50C). In both the VIC 20 and the 
Commodore 64 this will work: 

poke 781, row: poke782,col: sys58636: print "message" 
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Now let's talk a little about some other things you can do on a 64. machine language or sorting lists, the screen can be turned off for a 
First, the following line is an alternative to the above example: speed increase of 1 00 % ! 



poke 211, col: poke 21 4, row: sys 58640: print "message" 

This enters the plot routine a little later and avoids two steps (big 
deal at ML speeds). But secondly, if you do this a lot in a program, 
here is a neat 25 byte machine language routine that makes life a 
tittle simpler: 

0806 20 fd ae jsr $aefd ;scan past the comma 

0809 20 9e b7 jsr $b79e ;put row in .X 

080c 86 d6 stx $d6 ;store row in TBLX (current cursor 

line #) 

080e 20 f1 b7 jsr $b7f 1 ;scan past comma and put column 

in.X 

081 1 86 d3 stx $d3 ;put column in PNTR (current cur- 
sor column #) 

081 3 4c 1 e5 jmp $e51 ;set the cursor 

The following short BASIC program will place this routine in a 
REM statement: 



For a simple demonstration, try the following program in C64 
mode. 

1 print " C64 at 2Mhz - Randy Linden " 

20 print ' Caps-lock down for 2Mhz, " 

30 print " Caps-lock up for 1 Mhz. " 

40ford = 0to36 

50 read rl: poke 52992 + d.rl: ck = ck + rl: next d 

60 if ck<>3571 then print " ?Data error! " : stop 

70 sys 52992: print " Now installed. " : end 

100 data 169, 11, 141,20,3, 169,207, 141, 

21,3,96,165,1,41,64,73,64,10,10,42 

1 1 data 141 , 37, 207, 1 73, 48, 208, 41 , 252, 
13, 37, 207, 141 , 48, 208, 76, 49, 234 

The code resides at $CF00-$CF25 in memory on the Commodore 
64. When run, it changes the IRQ vector to point to a routine at 
$CF0B which scans the CAPS-lock key and turns on 1 Mhz mode if 
it is up, or 2Mhz mode if it is down. 



10 rem xxxxxxxxxxxxxxxxxxxxxxxxx [25 x's] 
20 for x = 2054 to 2069: read y: poke x,y: next x 
30 data 32,253,1 74,32,158,183,134,214,32,241 ,183, 
134,211,76,16,229 

Be sure 25 x's follow the REM in line 10. After typing the program 
in, run it and delete lines 20 and 30. Save the remaining line 1 to 
disk as a program and simply load and use it as the first line of any 
program in which you want to easily be able to position the cursor. 
The syntax is now simplified to: 

SYS 2054, row#,column#: PRINT "message " 



More B128 Bits From Liz Deal 

1. COLLECT is a variant of the DOS native command VALIDATE 
(V). The B machine actually thinks at the time of validation. 
Example: if you've just written a file of 6 blocks but didn't close it, 
the directory shows 6 blocks and a *. At this point " V " would get 
rid of the file, but COLLECT closes it. Not bad. 

2. An important control byte exists at $258: Logical file number of 
CMD file. It's used for printing integers (line numbers) on a CMD 
device. It permits sending disk directories directly to a CMD 
device, so: 



C- 128 Bits 



Randy Linden, Willowdale, Ont. 



Here are a couple of " C64 mode" peculiarities: The CAPS-lock 
key can be read in C64 mode, and the most interesting feature - 
2Mhz. clock speed is available in C64 mode! 

The CAPS-lock key can be checked with bit 6 in memory location 
$0001 of the C64 side. If bit 6 is set, then the CAPS-lock key is NOT 
pressed; if it is zero, the key is pressed. Example: 

if (peek(1 )and64) = then print " caps lock on " . 

Bit in memory location $D030 controls the speed of the micro- 
processor. In C64 mode, this bit is normally zero, running the 
system at 1 Mhz. If you set this bit, the computer will run at 2Mhz! 
Example: 

poke 53296,peek(53296)or1 

to set 2Mhz mode. The catch is that in C64 mode, the VIC video 
chip cannot operate at warp 2 and is disabled when 2Mhz mode is 
set, displaying a blank screen. However, for operations which do 
not need the video screen, such as assembling programs in 



OPEN 4,4:CMD 4: CATALOG 
Does just that to the printer. Neat. 

3. everybody knows that LIST is a harmless command. . .or is it? 
Try it on the B128 with a program from the plus 4 containing the 
keyword SCALE (that's token number $E9). TThe machine either 
crashes dead or ends up in the machine language monitor. And if 
that weren't enough, the program you just tried to list NEWs itself. 
Brilliant. 

4. Locations $20-$21 are important in working dynamic strings. 
They hold temporary pointers to strings. Do not ever use them for 
anything else if you do 't want your strings mangled, FRE crashing, 
and so on. 

5. New center of B information, besides TPUG, is now: 

Norman Deltzke 

4102N.OdelI 

Norridge, IL 

60634 

- Send 2 SASEs. 
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Un-Scratcher For Commodore Drives 

Oops! Just scratch the wrong file by mistake and wipe out 3 hours of work? 
Don't panic - use the Un-Scratcher. If you haven't done any more saving since, 
the scratch, your old file is still recoverable. The Un-Scratcher program below 
will ask you the type of drive you have (you may want to hard-code this into the 
program if you're always using the same drive), and display the filenames of 
scratched programs one by one, asking if you wish to un-scratch them, it will 
then write in the new directory information and validate the disk, asking for 
confirmation before each step. After that your life may continue normally since 
your precious work has been restored. Even if you have to enter it by hand, this 
is a routine that can really pay for itself! 



CN 
NL 

Fl 
LO 

FM 
MP 

KE 
EN 
GD 

MG 

KD 
LE 
BD 

FF 

LE 
KD 

KN 

ML 
OK 
KM 
CH 
KE 
EB 
AH 
MK 
PA 

NE 
OG 
CO 

PF 



100 rem save " O.un-scratch " ,8: rem ** rte/85 
1 10 z$ = chr$(0): cr$ = chr$(13): sc = 1 : dr = 

: rem dirsec + drvnum 
1 20 print " » * disk file un-scratcher * * " cr$ " enter drive type " 
130 print " a) 1541/2031 "cr$" b) 2040/4040 " cr$ " c) 8050/8250 

1 40 input ' your choice " ;dt$: if dt$< " a " or dt$> " c " then 1 40 
150dt=18:bh = 3:ifdt$ = >"b" thenbh = 17 

:ifdt$= "c" thendt = 39 
1 60 open 1 5,8, 1 5: open 8,8,8, " #0 " 
1 70 print#1 5, " u1 : " 8;dr;dt;sc: rem read dir sector 
1 80 print#1 5, " m-r " chr$(0)chr$(bh)chr$(2): get#1 5.nt$. ns$ 

: rem next trk/sec 
1 90 flag = 1 : for Ik = to 7: ps = lk*32 

: print#1 5, " m-r " chr$(2 + ps)chr$(bh)chr$(1 9) 
200 get#15,sb$,ft$,fs$: if len(sb$) or len(ft$)-0 then 310 
21 print " 1 st data track " asc(ft$) " sector " asc(fs$ + z$) 
220 print "filename ";: for name = 1 to 16: get#15,n$: print n$; 

: next 
230 print#1 5, " m-r " chr$(30 + ps)chr$(bh)chr$(2): get#1 5,l$,h$ 

: rem file size 
240 print: print " size " asc(l$ + z$) + 256*asc(h$ + z$) " block(s) " 
250 input " un-scratch (y/n) " ;us$: if us$<>"y" then 310 

; rem * nope 
260 input " file type: s, p, u, r " ;ft$: us = 

270forchk=1 to 4: if ft$ = mid$("spur" ,chk,1) then us = chk + 128 
280 next chk: if us = then 260: rem incorrect reply 
290 print#1 5, " m-w " chr$(2 + ps)chr$(bh)chr$(1 )chr$(us) 
300 print "done!!": print: flag = 
310 next Ik 

320 if flag then 350: rem no change in sector 
330 input ' write block to disk (y/n) " ;yn$: if yn$<> " y " then 350 
340 print#1 5, ' u2: " 8;dr;dt;sc 
350 dt = asc(nt$ + z$): sc - asc(ns$ + z$): if dt then 1 70 

: rem more to go 
360 if us = then 390: rem nothing to un-scratch 
370 input ' validate the diskette (y/n) " ;yn$: if yn$<> " y " then 390 
380print#15,"v" +str$(dr): print "» validating disk «" 
390 close8: close15: end 



Hardware Device Number Change 
for the 203 1 Drive 

The 2031 single drive can be hard-wired as device 
number 9 or 10. The number is determined by two 
diodes on the PC board, CR18 and CR19. Both diodes 
are normally connected for device number 8; snip 
one of the leads on CR18 for device 10 or CR 19 for 
device 9. 



C64 Doodle Screen 



Tom White, 
Sudbury, ON 



If you've ever drawn pictures on the screen with the 
standard graphics and editor on the C-64, you've 
probably hit the RETURN hey by accident more than 
once. This results in a READY or 7SYNTAX ERROR 
message partly wiping out your creation. To counter 
this menace, simply enter the following before you 
start your masterpiece: 

poke 768,123; poke 769,164 

While in this mode, all of the BASIC commands still 
work, so take care not to type LIST, RUN or any 
similar instruction that might ruin your picture. To 
return the error messages back to normal, type: 

poke 768,139: poke 769,227 



1 54 1 Write-Protect Check Craig McQueen, 

Guelph, ON 

Have you ever wanted a routine to find out if there is a 
write-protect switch on a disk? All one has to do is 
read the value of $1C00, bit 4. If the bit is 0, then the 
write protect is on. Here is a memory-read routine to 
do the checking for you. 

5 rem check for write-protect (1 541 ) 

10 open 15,8,15 

20 print#1 5, " m-r " chr$(0);chr$(28) 

30get#15,a$: a = asc(a$ + chr$(0)) 

40 if(a and 1 6)then 70 

70 print " write protect is on! " 

60 goto 80 

50 print " no write protect " 

80 close 1 5 
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C-64 Memory Fill 
ROM Routine 

Thomas Henry writes: 



Thomas Henry 
North Mankato, MN 



In the Volume 6, Issue I Bits & Pieces section, you described the use 
of the memory transfer subroutine contained within the BASIC 
ROM. One vital piece of information is missing, though. The 
memory transfer routine is not ' intelligent " . Specifically, it fails to 
work correctly if you attempt to move a block of data in the 
downward direction AND if the source block overlaps the destina- 
tion block. In alt other cases however, it works just fine. 

By the way, the routine has this limitation since it was originally 
designed to spread apart BASIC lines in memory. The designers 
apparently never intended for it to be used for any other purpose 
than making room for new BASIC lines in RAM. Of course, this type 
of memory transfer will always be occuring in an upward direction 
(from lower to higher adresses). Now that we know the limitation, 
however, we hackers can use it for other purposes as well. 

Here's a neat trick that actually exploits the shortcomings just 
mentioned to good advantage. See if you can figure out how it 
works. (The following addresses are for the C-64; refer to the 
abovementioned issue for for the corresponding addresses in the 
PET/CBM and VIC-20.) 

THE TASK: We wish to fill a block of RAM with a specific byte. We 'It 
call this a memory fill subroutine. Possible uses include clearing a 
bit-map screen, setting colour memory to some value, filling a 
buffer with zeroes, etc. 

THE SOLUTION: Suppose the addresses of the start of the block to 
be filled is START and the last address of the block is END. For 
example sake, let s imagine we wish to fill this block with zeros. 
Perform the following steps: 

1. Store a zero (or whatever byte you wish to fill memory with) in 
location END 

2. Store address END in location $58 (low byte, high byte). 

3. Store address END + / in location $5A. 

4. Store address START + I in location S5F 

5. Call subroutine $A3BF(The memory transfer subroutine) 

The block from START to END (regardless of length or location) will 
be filled with the specified byte - zeros in this case. 

One limitation of the block fill routine is that it cannot be accessed 
from BASIC. Apparently the POKE number or SYS number evalua- 
tor plays havoc with locations $58 through $60. However, the 
routine works just great with machine language and is far simpler 
to use than " rolling your own " . 



Relocate! 

When creating sprite files, high-res screens, character sets and the 
like, you don't always know where in memory you'll want to put 
them. You'd also like those files to be LOADabie programs that will 
go into whatever spot you want. For example, some drawing 
packages create a high-res screen PRG file on disk that can be 
LOADed into memory starting at $2000 (8192). If you wish to use 
that picture but put it at, let's say, $E000, you need to change the 
picture file's load address on disk. Guess what RELOCATE does? 
Just tell it your drive type, the filename of the program, and your 
desired load address, and it changes the load address of the file. 
Right now. Yes, it is fast, because it goes directly into disk memory 
to change the first two bytes of the file and writes the block back to 
the disk surface. 



HD 

AF 

CO 
GK 
CK 
GH 

DD 

HC 

OF 

FA 
AJ 

HE 

MP 

FL 

IP 

ID 



AH 

BD 

OM 
HF 
DM 

BP 

IE 

GE 

BO 



100 rem save"0:relocate",8 

105 rem ** rte/85 - allows quick change of prg load 

address ** 
110: 

115z$ = chr$(0) 
120 print " drive type: " 
125 input " 1)1541/2031 , 2)4040, 3)8050/8250" ;d 

:ifd<1 ord>3then 125 
1 30 if d = 1 thendl = 144:dh = 2:di = 4:dt = 18:bl = 

:bh = 3: rem 1541/2031 
135ifd = 2thendl = 150:dh = 67:di = 4:dt = 18:bl = 

:bh = 17: rem 2040/4040 
1 40 if d = 3 then dl = 96: dh = 67: di = 8: dt = 39: bl = 

:bh = 17: rem 8050/8250 
145: 
1 50 input " drive #, filename " ;dr,f$ 

:f$ = str$(dr)+":" +f$ 
1 55 input B new start address (decimal) " ;sa 

: sh% - sa/256: si = sa-256*sh% 
160 open 15,8,15: open 8 ( 8,8,(f$): get#8,a$ 

: if st then close8: stop 
1 65 print* 1 5, " m-r " chr$(dl)chr$(dh): get#1 5,s$ 

: rem sector 
1 70 print#1 5, " m-r " chr$(dl + di)chr$(dh): get#1 5,i$ 

: rem index 
1 75 s = asc(s$ + z$): i = asc(i$ + z$) + 1 
180 close 8: open 8,8,8, "#0" 
1 85 print#1 5, " u1 : " 8;dr;dt;s: rem read in directory 

track/sector 
1 90 print#1 5, " m-r " chr$(bl + i)chr$(bh)chr$(2) 

: rem get 1st data block ptr 
1 95 get#1 5,t$,s$: t = asc(t$ + z$): s = asc(s$ + z$) 
200 print#1 5, " u1 : " 8;dr;t;s: rem get first data block 
205 print#1 5, " m-w " chr$(bl + 2)chr$(bh)chr$(2) 

chr$(sl)chr$(sh%) 
210 print#15, " u2: "8;dr;t;s: rem write block back 
215 close 8: close 15 
220 print " ** address changed 
225 end 



** 
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Letters 









Oops - I Really Blew That One! Within minutes after the 
last issue was released, or so it seemed, I ended up on the 
receiving end of a telephone conversation with Chris Wiesnerin 
Ottawa, The conversation we had made me blush for the first 
time in years. It seems that in his letter, as we reproduced it in 
on page 13 of last issue, I really fouled up - twice. The first was 
to spell his name incorrectly (I before E except after C). The 
second, and this was pretty awful, was to incorrectly state the 
telephone number of his Bulletin Board System in Ottawa. 
Chris, in a blast of ingenuity, was going to contact the people 
belonging to the number listed, and lend them his answering 
machine. Can you imagine how rotten it would be to have your 
phone ring constantly through the night, only to hear a com- 
puter screaming at you when you pick it up. Pretty bad. 
Anyway, sorry Chris, and multiple sorry to the people who 
belonged to that line. Unlike my The Error Of Our Ways: More 
Often Oops Than Bloops' note from last issue (page 14), of 
which Chris made sure to mention, we do foul up at times. 
Below is the proper name and address of Chris !s BBS. Ed. 

Chris K. Wiesner 
Ottawa Mail Forwarding Service 
PO Box 793 Station B 
Ottawa, Ontario, K1P-5P8 
(613) 830-2823 



Pet Accessories: I am the proud owner of a Pet 4032 
computer and know several others in my area. Our problem is 
that there is so little support for the Pet in this area. In fact, 
nobody has even heard of it! I have need of certain information 
that I hope you will help me get. 

There is an upgrade kit available for the 4032 that is supposed 
to turn it into an 8032. This is from Comspec Communications 
Inc. in Toronto, Ontario. Does this really convert the 4032 to an 
8032? Also, does this conversion effect the compatibility of the 
upgraded Pet to existing software? I have also heard of an 
upgrade kit which adds 64k of memory to the Pet. Where is this 
available? The Commodore SFD 1001, one megabyte disk 
drive has recently arrived on the scene unannounced, with 
little fanfare and even less technical data. It is available from 
Protecto and Progressive Peripherals. Is this drive software 
compatible with other Commodore drives? Which ones? What 
commercial software is available for the Pet in either the 40 or 
80 column configurations? What drive is this software designed 
for? William Uhler, Richmond, VA 

For such a small letter, you sure squeeze in a lot of questions. 
First, Comspec does sell an update kit for the 4032 to turn it into 
a true 8032. This update also allows the user to switch back 
and forth between 4032 and 8032 mode. The trick with this 
update is that the 4032 has a different keyboard than that of the 



8032. To get around this problem, they have written in a control 
key sequence that allows the user to produce any normal CBM 
key sequence desired. For an added bonus, quite a few useful 
but normally unavailable special effects can also be produced. 
This conversion will not affect the execution of any program 
written specifically for the 4032 or 8032. The machine will 
behave exactly as expected. The address for Comspec follows 
this reply. 

In reply to the myth of an extra 64k board for the Pet, it is 
partially true. First, the Pet has to become an 8032. From that 
point on the extra 64k is no problem, providing you are willing 
to shell out $399.00 Cdn. The 64k in question is really the extra 
board provided with a Commodore 8096 computer, originally 
designed in Great Britain. The 64k is mapped in a really strange 
way, though. It overlays screen memory and ROM when 
enabled, and cannot be used from within Basic Although this 
may appear to be a major obstacle in your way, it may not be. 
A few software packages have been written for the 8096. For 
example: Wordpro 5 + , Paperclip Expanded, Calc Result, and 
Silicon Office. For a laugh, VisiCalc is also available through 
the bootleg community for the 8096. Although VisiCorp origi- 
nally wrote Pet and CBM versions years ago, they had a fallout 
with Commodore before cutting a version for the 8096. Enter 
the mysterious hacker. Not only was the package broken 
(originally ROM protected), but it was also converted over to the 
8096. Speaking from personal experience, the package is Ok. 
Lots of user workspace, and no apparent bugs. I'm sure 
VisiCorp wasn ? too happy with that one. 

The SFD 1001, as mentioned last issue, is completely read/ 
write compatible with the now defunct Commodore 8250 drive. 
With a little bit of effort, and keeping in mind the fact that the 
SFD 1001 uses both sides of the diskette, the Commodore 8050 
is read/write compatible. The 8050 uses only one side of the 
diskette, 77 tracks - 540k, therefore, when an 8050 diskette is 
used in an SFD 1001 drive, it will have to be initialized once 
before access can begin. The first attempt at initialization will 
always err out, but any access thereafter will be Ok. If put in the 
reverse situation, SFD 1001 diskette in a 8050 drive, it is 
completely read/write compatible, providing that no programs 
to be accessed span onto the opposite side of the diskette. One 
last note to mention before continuing. The SFD 1001 is a 
parallel drive, ie. IEEE, therefore anyone wanting to use this 
beast with their 64 will also need to purchase an IEEE interface. 

As a final wrap up of your letter, there is quite a bit of really fine, 
and not so fine, software available for both the Pet and CBM 
machines. If you were to prowl around a few of the older user 
group libraries, you should find plenty of Pet stuff. Contact 
TPUG and ask if they can help you with this one. As far as 
commercial software goes, there are quite a few packages 
available, but locating them may be a bit of a problem now. 
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Packages such as Superscript, Paperclip, Wordpro, Wordcraft, 
VisiCalc, Calc Result, The Manager, Jinsam, Ozz, Pal, Power, 
plus great gobs more, are around. Try finding a copy of the 
latest 'Commodore Software Encyclopedia) published by Sams 
Books, and take a peek inside. They not only have listings of 
recent software for the newer Commodore machines, but also 
have pages of listings of Pet/CBM software, complete with 
descriptions, drive and memory requirements, plus distributors 
names and addresses. 

Comspec 

153 Bridgeland Avenue, Unit # 5 
Toronto, Ontario, Canada 
M6A-2Y6 (416)787-0617 
Attention: Nick Hooper 



A Coded Message: 



Dear Sirs 



We get some of the most unusual letters, but never before one as 
unusual as this. For everyone reading, this letter has been 
reproduced exactly as it was sent to us. 

Sorry for not covering as many languages as hoped for in our 
Languages issue, but it wasn 't due to a lack of effort. For quite 
some time prior to the Languages issue, we chased about trying 
to locate people who would be willing to write about the various 
languages available. For our efforts we received many prom- 
ises, but few results. Such is life. The issue was still good, but did 
not cover the languages as extensively as hoped. 

About Promal. I contacted their distributor a fair time before the 
Languages issue was to begin, but received the package after 
the issue rolled off the press. The answer to this puzzle came to 
me while using the package. The compiler's date stamp was 
just days prior to my receiving it. The package wasn 't com- 
pleted until after we finished the issue! Not to rain on PromaTs 
day altogether, it seems to be a terrific package, one worthy of 
review in some future issue. 



PROGRAM LETTER (INPUT, OUTPUT); 
TYPE SCALE OF [1... 10]; 

DECUS : FILE OF INFORMATION FOR DIGITAL EQUIPMENT COMPANY 
TRANSACTOR : FILE OF INFORMATION; 
CONST VALUE-OF-TRANSACTOR = 10 ON SCALE; 

ISSUE-NOVEMBER = 8 ON SCALE; 
VAR COMOL, MACHINE : ABUSED; 
C ; ENJOYABLE; 
GAZETEER OF LANGUAGES : CHAR FROM DECUS; 
LOGO : PLEASE; 
DONE : BOOLEAN; 
DR. ROSS : THANK YOU; 
BEGIN; 

DONE:= FALSE 
WHILE NOT DONE DO; 
BEGIN; (* DECUS*) 
READLN(DATE-PUBLICATION); 

WRITELN('Parts of'.GAZETEER OF LANGUAGES,' were in'.DATE-PUBLICATION); 
END; (*DECUS*) 
RESET DECUS; 
BEGIN; (*OTHER STUFF*) 

WRITELN('Where is the Pascal, Ada, Fortran and Promal?'); 
READLN(WHERE IS THE BEEF); 

WRITELN('Maybe programmers should learn an other language, ENGLISH'); 
END; (*OTHER STUFF*) 
LOGO: = 'Why noy use Pilot?' 
BEGIN; (*NATIONAL COMMODORE LANGUAGE INTEREST GROUP*) 
IF READER = INTERESTED IN OTHER PROGRAMMING LANGUAGES 
THEN BEGIN; 

WRITELN('Contact NCLIG'); 
WRITELN('1812 N.I. Street'); 
WRITELN('Fremont, NE 68025'); 
WRITELN('[402] 721-4346'); 
END; 
END; 
DONE: = TRUE; 
END. 

Kent Tegels, Fremont, Nebraska 



And finally, I like your tidy bit of advertising. If some of you 

missed it near the bottom of the letter, 
here it is again. If you are interested in 
other programming languages, you can 
contact the National Commodore Lan- 
guage Interest Group (NCLIG) at 1812 
N I. Street, in Fremont, NE, Zip 68025, 
tel* (402) 721-4346. 
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Monitormented: I am the proud owner and user of Commo- 
dore machines, but I'm having trouble with one of their 
animals, namely the 8032 Assembler/Monitor. You see, I don't 
have the users manual for the creature and regardless what 
commands I feed it - .A, .D., .R, etc. - it burps up the "?". Very 
aggravating! I've tried both decimal and hex for starting ad- 
dresses, accumulator values, etc., to no avail. One of you guys 
must know how to feed it. Please HELP. 

Randy Guimond, Baie Ste. Anne, New Brunswick 

// sounds like you 're referring to the Machine Language Monitor 
that resides in the 8032 ROMs. If so, it doesn 't do a whole lot. It 's 
useful, but limited. It has no Assembler, or Disassembler, or any 
of the more sophisticated commands found in many MLM 
extension programs available. Here is the command set of the 
resident MLM (remember, the period preceding the command is 
supplied by the machine). 

G Go to a specific address of code, or whatever is in the PC 
.L Load a file - syntax L " drive.filename " , device (ie. 08) 
.M Display computer memory in hex. Syntax; M ssss eeee ; 

where ssss is the start 16 bit hex address to view, and eeee 

is the ending 16 bit address. 
./? Displays registers - alter by typing new hex values over the 

existing ones, and hit return 
.5 Save a file - syntax S" drive.filename" .device # (ie. 

08),start,end + 1 
.X Exits to Basic 

However, it 's also possible you 're referring to a program you are 
loading, perhaps from a diskette. As mentioned above, this 
would be a monitor extension program. There are many of 
these - Extramon, Supermon, Micromon, to name a few - that 
link themselves into the resident MLM for extra commands like 
Hunt, Fill, Walk, and many more. If this is the case then I'm not 
sure which extra commands you may or may not have. If there 
are any, a sure clue is the Disassemble command - lean 't think 
of any extension that doesn 't include it. (Try .D followed by any 
1 6 bit hex address) Get a copy of Extramon or Micromon, all in 
public domain, and then try your luck. They are guaranteed 
Ok, 



Whereware: To begin this letter I must congratulate you on 
what I consider the best magazine currently available which 
covers the Commodore line of computers! PLEASE keep up the 
good work and keep the magazines coming! 

In the September issue (1985) of The Transactor, there was a 
letter from Real Gagnon, of Quebec, asking about a 40/80 
column adapter for the VIC-20 from Data-20. As of February of 
this year, Data-20 (at the address you listed) still had their 40/ 
80 column adapter with 16k memory, at a close-out price of 
$70.95 including shipping. When I ordered one for my VIC, I 
got the impression that they were not moving very fast, so there 
may still be some left. 



THANKS for the assembler program for the Rockwell R65C02 
chip! I have also recently purchased and installed one in my 
VIC, and now I can write software for it. Now all I have to do is 
to re-write the screen editor in the Data-20 40/80 column 
adapter to utilize the new op-codes - and to correct some of the 
glitches in the editor. 






Also, in regard to the letter from Bill Uhler, of T.R.A.C.E., I 
agree that when the distributor or publisher of software is no 
longer in business, it is a pain in the tutu. Keep in mind that 
often a copyright is only assigned to the marketing company for 
the period that it is in business, and usually reverts to the 
author upon the demise of the marketing company. Have you 
considered starting a clearinghouse, to keep track of the au- 
thors and publishers of software for Commodore computers? 
You could either get permission from the copyright holder to 
produce the software yourself, and charge for the copying, or 
you could maintain a database of copyright holders, and sell 
lists of the names. If enough people wrote to the author of a 
program to request permission to copy it, perhaps the author 
would be convinced to either start publishing it again, or 
release it to the public domain. 

To add my own 2-cents worth to the copy protection contro- 
versy: I can well understand the viewpoint of the authors and 
'publishers' of software, but I am also a buyer of software. There 
is only one pirate-prevention method which I have any respect 
for - the 'dongle' system as used by Batteries Included on their 
Consultant and Paperclip software packages. Not only is the 
software first-rate, but I can also make an infinite number of 
back-up copies, even give them to my friends, but only one 
copy will run at a time! They also make the best 80 column 
adapter there is for the Commodore 64! THANK YOU Batteries 
Included. 

K.J. Rogerson, Farmington Hills, MI 

Thanks for the tremendous vote of confidence. It's nice when a 
reader takes the time to respond to matters we expose each 
issue. Also, Batteries is sure to feel pleased when they read of 
the respect you hold for their policies and product line. I agree. 
Their products are fine and the dongle protection scheme is top 
class. If only a few more software manufacturers felt the same 
as the public seems to. Although disk protection is said to be 
used to keep prices down, all it usually accomplishes is to raise 
the red flag for the pirates, and to keep the legitimate pur- 
chasers ticked off at the inconvenience. 

A clearinghouse is ideal theory, but implementing such a 
service would require a lot of legwork, and it seems there are 
not enough seconds in a minute as it is. Any volunteers? 



More Ad-vice: I was on the brink of writing to you to ask why 
you don't include more advertising when in came the Nov 85 
issue with John Brunner's letter on the same topic. 
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I have recommended Transactor to several friends, some of 
whom have responded that they don't like the fact that it has no 
advertising! I like to see some too, especially all the little ones 
(things like cheat sheets for example, and specialized software 
from little known sources). 

It is a good idea to keep it all in one place, and I favour the 
middle. It can then be removed without harming the magazine 
when the file has to be thinned out maybe six months or a year 
after receipt. Wherever it is, it should be bound in such a 
manner that the advertising pages can be removed without 
releasing the editorial pages. I guess seven pages is a good 
number if it includes the back cover. 

If you want to keep advertising down, but are in a position to 
accept ads, you have the best of both worlds. You can set the 
rates at a level which attracts only the number of ads you want 
to accommodate. Set the rates deliberately high in the first 
place, and if you don't get enough advertisers, reduce the rate 
until you achieve the desired amount. And if you are accepting 
ads with a certain degree of reluctance, you don't have to worry 
about the old adage about who pays the piper calls the tune. It 
doesn't apply if the piper has an independent source of income. 

R.C. Eldridge Pemberton, British Columbia 

Since we published John Brunner's letter of advice, we have 
been getting a number of really choice letters to back up 
Brunner's philosophy. Bob, thanks for the great advice. You 
may be right about the middle section of the magazine. Al- 
though it would mess up the nice flow we try so hard to attain, it 
would have the advantage of being quite easily removed when 
no longer required. Super idea. 

As for your idea of setting rates as high as possible, then 
adjusting to get just the right amount of advertising, another 
bright idea. How does $5000.00 per page sound to start with? 
Although our print run is far below many of our competitors, we 
do cater to a more select crowd of people. We feel that our 
readers are the ones that write the software, design the hard- 
ware, and pull the trigger of the industry, as it relates to 
Commodore. How's that for cheeky. An advertiser with the 
right product would get a much better response with us than 
with our competition. The problem is that advertisers with 
quality products like to have their ads placed alongside similar 
products to allow comparison by the readers. Although we 
could sift out all but the ads for quality products, it might mean 
discriminating between two equally "paying customers" which 
isn 't fair. But we 're working on it! Thanks again. 



CP/M In The Transactor?: I have been very pleased with 
the technical nature of your magazine. I only wish I could buy 
12 issues a year. Keep up the good work. I have a few thoughts 
that keep running through my head that I'd like to pass on to 
you. 



First, I was wondering now that I've bought a CI 28, do you 
intend to deal with the CP/M in the same way as CBM topics or 
would we be better advised to subscribe to a CP/M oriented 
magazine such as Dr. Dobb's or Language? I ask this because 
CP/M is almost an entirely new world, as is the Amiga, and to a 
lesser extent the CI 28. I have serious reservations that justice 
can be done to all this new material. 

Second, I would like to respond to your intent to marginally 
increase the advertising content of your magazine. I, and I 
suspect many others, have mixed feelings on the subject. I 
think that advertisements can be an important source of infor- 
mation to the reader (I will, on occasion, buy a Byte just for a 
listing of available products on the market). Advertisers are 
obviously an important source of revenue to your magazine. I 
think that for your own growth as a competitive magazine you 
cannot ignore the necessity of incorporating more advertise- 
ments. Unfortunately, advertisements traditionally tend to pro- 
vide little substance to a magazines content. I would like to 
suggest some possible remedies of a somewhat radical nature: 

I - Enforce advertising standards. (I don't know if this has ever 
been done?) Insist that advertisers include user information of a 
technical nature. Make advertisements a coordinated segment 
of your magazine. I would like to see cost, content, compari- 
sons, and more. If advertisements provided all of that then 
maybe people would be more accepting of them. (Can you tell 
advertisers what to do?) 

II - Allow advertisements only on a annual basis (or longer) and 
charge more. This would require an index of some nature. This 
index could be cross-referenced by company and subject with 
advertisers paying for extra index entires. You could even 
expand the index to include references to Transactor articles. 
(Am I getting carried away here?) In any case, under such a 
plan, the information content goes up and the number of ads 
goes down. 

III - Institute reader service cards. Incomplete information is 
often more irritating than no information. User cards put 
complete information within easy reach and, in my view, make 
advertisements much more palatable. I know that one of the 
primary reasons I am a computer nut is because I am an 
information nut. The more quality information you make 
available, the more I like you. 

By incorporating these concepts, all parties should be happy. 
Readers have a better quality advertisement and an index to 
allow comparison shopping when they are interested in it. 
Transactor can keep down the space required for advertise- 
ments while at the same time increasing their advertising base. 
Advertisers are insured that readers who are interested in their 
product have easy access to their information for an extended 
period of time via the index. This format would also encourage 
advertisers to place ads in issues whose content relates to their 
product. 
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Finally, have you seen Info Magazine's method of providing 
disk versions of their listings? Rather than selling by issue, they 
let you choose what you want and you get charged by the 
number of disks sent. 1 find myself not ordering disks because I 
have little interest in half of what's on the disk. I would 
recommend that you consider this method. It is an exception- 
ally well conceived idea, and it would fit in well with an already 
well put together magazine. 

Eric B. Wolff, Cinti, OH 

We do not intend to cover the CP/M option of the CI 28 to any 
great extent. Many of the other magazines have been operating 
in CP/M for years now, so it would be difficult for us to break in 
so late and expect to compete. Covering the Amiga is another 
story, though. The Amiga appears to be a fresh, new entry in a 
market stagnating with compatibles and clones, and as such 
deserves a little press ala The Transactor. As a matter of fact, 
just a few days ago a friend of mine, Jesse Knight, called from 
Texas to offer his services in the Amiga writing department. 
Jesse has an Amiga development system and is so impressed 
with it that he can 't wait to tell the world. We should have our 
own Amiga pretty soon and The Twill be firmly on the receiving 
end of our own Amiga discoveries. 

About your advertising comments, not too bad. We appreciate 
the time and effort you must have spent in composing your 
letter. 

You have probably read the answer to our previous letter by 
now. Once again, we're working on it, and thanks again for the 
suggestions. As for the index, you probably have not seen some 
of the earlier Transactors. Each had an Advertising Index that 
looked much like what you describe, but quite frankly, they 
didn 't leave much of an impact with our readers or advertisers. 
Or am I wrong here? 

Making additional technical info a mandatory advertising 
requirement would be terrific for the readers. Advertising that 
actually lasts longer then the turn of a page. A sharp concept. 
But it would be difficult to enforce and we might end up right 
where we are - no advertisers. Indeed there are many aspects 
to examine. 

Including a reader service card would be a natural for us if we 
start running ads again. Not only would it appeal to the 
advertisers, but it would also provide a better service to our 
readers. Our ads won '/ come cheap, but then quality goods 
usually don 't. 

The last point mentioned regarding Info Magazine 's disk serv- 
ice is hard for me to comprehend. We deal in such a vast 
number of diskettes every issue that a custom selection would 
be next to impossible. For us, the idea would not be feasible 
even with reduced sales. Our staff is just not large enough to 
provide such a service plus get a magazine out. Sorry to say that 
the idea sounds great for the consumer but would be difficult to 



provide from our viewpoint. We're considering making our 
programs available for downloading from a timesharing serv- 
ice. However, downloading just two or three programs from 
one disk might cost just as much as the disk itself. Downloading 
three programs from three different disks might save you 
money, but the service may not have space for more than one of 
our Transactor disks at a time. 






As a final note, I would like to thank you for your ideas. 
Through advice like yours will be built a magazine that will 
appeal to everyone associated with it. Thanks once again. 



Medium Interest: If the magazine appears on microfiche, I 
will immediately switch my subscription to that medium. I will 
also order as many back copies as I can afford. There are 
certainly many others in your readership who will do likewise. 

Jim Alix, North Vancouver, British Columbia 

Alright! Another vote for microfiche. That adds up to two so far. 
For everyone reading who is so inclined, the microfiche ques- 
tion remains unresolved. We need your letters to qualify our 
decision to provide microfiche service. Thanks for taking the 
time to write. 



SX Effects: I presently own a 64-SX computer with a single 
disk drive. I would like to add one more disk drive to the 
computer but can't get an answer from Commodore. Any help 
you could give me would be appreciated. 
Tim Fucile, Thunder Bay, Ontario 

To get the answer to your question, I went to the local SX64 
expert, Jeff Goebel. His answer was yes, you can add an extra 
drive or two to the SX64. Of course if you add a drive that has a 
device number of 8, you 11 have two device 8's. Not good. So the 
trick is to change the unit address of the internal drive first, say, 
to # 9; 

open1,8,15 

print#1 , " m-w " chr$(1 1 9)chr$(0)chr$(2)chr$(9 + 32)chr$(9 + 64) 

Then plug in the external drive and use it as device # 5. 

If you want the internal drive to be #8 and the external drive *9 ( 
you'll have to do some juggling. First you'll have to send the 
internal drive number "to a neutral corner". Change it to, say, 
"15 by replacing the two 9 + in the above command string with 
/5+. Then plug in the external drive # <S, change it to *9, and 
change */5 back to # S. You'll have to open two command 
channels, one for each device. 

The reason for the computerized gymnastics is because you 
cannot turn off the internal drive separate from the SX64. When 
you connect an external drive that is still wired for device # <S, 
you can't change the device number of one without changing 
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them both, A seperate power switch for the drive would have 
been ideal. 

We get an awful lot of letters in our mailbox every working day 
and can imagine Commodore getting several times more. 
Answers often take time and research. To everybody who has 
ever sent us a letter but has not received a reply, please do not 
take it personally. It gives us great pleasure to get such reader 
response. However, economizing on answers is all too often 
necessary. It means we have to select an intersection set of 
questions. Commodore is no doubt bound by the same eco- 
nomics. Perhaps getting less questions than Commodore is one 
reason we have time for the occasional exception. 

Bloops Blues: Not being sure if it's misprints or me, I am 
writing for help regarding a couple of programs in the Volume 
5, Issue 04 of Transactor. (I think that's right, but not sure as on 
page 1 upper left in large letters it says issue 5. On bottom right 
of all the pages it says issue 4) 

To help pinpoint the issue, it starts with a Hildon article " We're 
so Misunderstood!" 

First problem dealt with program by Rick illes in the Bits & 
Pieces section. After entering program name and type, disk 
runs (red light on) then screen goes tp READY, keyboard locks 
up and drive led flashes. 1 have a C64 so entered the 4 changed 
lines 110, 120, 130, 300. Even tried it after changing 130 to 
read ,.*peek(56):s = t & still no go. (yes, have proof read the 
entries against the printed cbpy) 

Next comes " Learning the Languages of DOS" by Evers. On 
page 50, he writes " . . ..check article 'Drive Peeker' in this 
issue. ' Well, I've looked and looked and didn't find any article 
titled 'Drive Peeker'; am I going blind? 

Further, I typed in memory read program. It will not accept any 
$0000 or any number with an alpha character in it, as a start or 
end address. So I entered a number like 0300; however, the 
screen listing didn't start at 0300, the same was true no matter 
what starting number I used. 

1 will say though that I found all the articles to be informative 
and well written. 

N.J. Schoenmaker, Ludington, Michigan 

To clarify, the title of the issue in question is hardware and 
Peripherals', Volume 5, Issue 05, dated March 1985 but actually 
released around December 1 984. The designation of Issue 04 on 
the bottom of each page was caused by a minor slip during 
typesetting. We forgot to update the border routine to reflect the 
correct Volume and Issue numbers. We had hoped nobody 
would notice. 

Rick Illes Single Disk Copy Program will work by changing line 
130 to read: 



1 30 1 = peek(55) + 256*peek(56): s = t 

As you specified, location 46 was referenced instead of 56. But 
after this change, the program works fine as printed. 

My Drive Peeker' article did make it to the type shop for that 
issue, but was not printed due to priorities. We had such a 
multitude of great articles that Drive Peeker got the boot. The 
sad part is that my 'Learning . . .' article was not updated to 
reflect this last minute cut. Drive Peeker did appear in the issue 
following, Volume 5 Issue 06, Programming Aids and Utilities, 
on page 71. 

The Memory-Read demonstration program in the 'Learning 
The Language of DOS' article does work as listed. When you 
run the program, though, you must enter the start and ending 
address to view in decimal, not hex. The routine will display the 
disk contents in Hex andAscii, along with showing the current 
location within DOS RAM or ROM in 1 6 bit hex at the beginning 
of each eight character line. The program works, but could 
have used a bit more explanation I suppose. 

Thanks for the final vote of confidence at the end of your letter. 
It's letters like yours that keep us on our toes. 



SuperPet Switch Glitch: I have a few questions that I hope 
either you or your readers will be able to help me with. 1 
recently purchased a Pet system. It consists of a Super Pet 
(SP9000), D9090 and 2031 Disk Drives, and a 8023P Printer. 
My first question regards the two three position switches 
located on the right side of the Super Pet. I have found that the 
one switch, marked 'Prog-6502-6809' selects from Waterloo to 
CBM Basic. The second switch seems to make no difference in 
operation of the computer regardless of its position, it is 
marked 'Prog-R/W-Read', what do these two switches really 
do? 

As you may have guessed, I do not have a SP9000 manual. I 
received a 'Series 8000' manual. Is this the correct manual or is 
there a SP9000 manual and should I try to get one? The only 
software that I received was 'The Manager' with its two man- 
uals and the required 'dongle' to run it. I would greatly like to 
get hold of the 'Waterloo' language programs for the SP9000. 1 
have all the manuals, Basic 6809, assembler, micro apl, micro 
pascal, and micro fortran, but no programs. Any information as 
to where I could get these programs would be greatly appreci- 
ated. 

With the help of a friend I have found out how to run my C64 
basic programs on the SP9000, so I found some uses for the 
SP9000, but not the one I really want. 

C. Daniel Schein Jr. 

2455 McKinley Avenue 

West Lawn, PA 19609 
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The SP9000 has 32k of user RAM at $0000-5 7FFF, screen RAM 
at $8000-$8FFF, plus an extra 64k of Bank Switched RAM at 
location $9000, accessed in I6-4k blocks. In 6809 mode, with 
an interpreter Loaded and executing, this RAM is not to be used. 
The Interpreter Hoes in it. But, if working from 6809 assembler, 
or in any mode with the 6502 processor, this area is open for 
whatever use you may have. 

There are two memory locations that are important for use 
when programming the SP9000. They are: 

$EEF8, the System Latch 
$EEFC, the Bank-Select Latch 



The manuals supplied with the SP9000 were as follows: 

The Commodore Business Computer User's Guide Series 8000 

The Commodore SuperPET System Overview 

The Commodore SuperPET Waterloo 6809 Assembler 

The Commodore SuperPET Waterloo microAPL 

The Commodore SuperPET Waterloo microBASIC 

The Commodore SuperPET Waterloo microCOBOL 

The Commodore SuperPET Waterloo microFORTRAN 

The Commodore SuperPET Waterloo microPASCAL 

The last time I looked, SAM's books carried all of the SuperPET 
manuals listed above. 



The bit configurations are listed below. 

$EEF8 System Latch 
Bit Description 

CPU Select: = Motorola 6809, I = M OS 6502 

1 Memory Protect: = Read Only, 1 = Read/ Write 

2 Unused 

3 Diagnostic Sense 
4-7 Unused 

If the toggle switches are not set to their 'Prog. ' positions, all 
work with the System Latch will be ignored. Bit 3 should be set 
before switching into MOS 6502 mode. This has been imple- 
mented due to the destructive reset sequence the Pet follows on 
reset. When the Diagnostic Sense is set, this reset sequence is 
not followed, thereby retaining RAM in transit. 

$EEFC Bank-Select Latch 
Bit Description 

0-3 RAM Bank Number In Use: 0-15 
4-6 Unused 

7 Must be set (I) when accessing the System Latch, 
otherwise should be cleared (0). 

The two three position switches perform the following func- 
tions. 

Switch *J 

Read When set, is the Read Only position of the bank switched 

RAM at $9000 
R/W When set, allows Reading from and Writing to the RAM 

at $9000 
Prog. Software control of the write protect state of the RAM at 

$9000 (see System Latch). 

Switch *2 

6809 The Motorola 6809 and Waterloo operating system is 
provided in this position. 

6502 The MOS 6502 and Commodore operating system is 
provided in this position. 

Prog. Selection of the processor in use through software con- 
trol (see System Latch). 



Two diskettes were supplied with the SP9000: 






L 'The Commodore WCS'\ which contains the Waterloo APL, 
Basic, Cobol, Fortran, and Pascal interpretated languages, 
the 6809 Assembler /Editor system, plus the Waterloo library 
routines, and 

2. The Commodore Tutorial diskette, which contains allot the 
tutorial examples referenced by the various software man- 
uals supplied. 

Both diskettes were once a standard stock item for Commodore 
here in Canada, but that was a few years ago. You could try to 
contact Commodore up our way for help, or maybe even 
Commodore down in West Chester. You never know. Commo- 
dore may have some old stock still kicking about. Just in case 
they don 't, I have included your complete address at the bottom 
of your letter. Hopefully, a kind reader will contact you to offer a 
few suggestions. If all else fails, you could contact The Univer- 
sity of Waterloo in Waterloo, Ontario, Canada. Although ru- 
mour has it that they don 't support the SuperPET any longer, 
they won 't bite you for trying. 

Please remember, even if you don't succeed in your quest for 
SuperPET information, the machine still makes a great com- 
puter. As explained earlier in this column, the 40 and 80 
column Pets had quite a selection of top notch software on the 
market before the advent of the 64. Just find a copy of the 
Commodore Software Encyclopedia (SAM's Books), and go 
shopping. Between the software listed in this book, plus the 
great scads of software available through many of the older Pet 
users groups, there should be no trouble in locating plenty of 
good software. Best of luck. 
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TransBASIC 
Installment # 7 



Nick Sullivan 
Scarborough, Ont. 



TransBASIC Parts 1 to 3 Summary: 

Part 1: The concept of TransBASIC - a custom command 
utility that allows one to choose from a library only those 
commands that are necessary for a particular task. 

Part 2: The structure of a TransBASIC module - each TransBA- 
SIC module follows a format designed to make them simple to 
create and "mergeable " with other modules. 

Part 3: ROM routines used by TransBASIC - many modules 
make use of ROM routines hurried inside the Commodore 64. 
Part 3 explains how to use these routines when creating new 
modules. 

Part 4: Using Numeric Expressions - details on how to make 
use of the evaluate expression ROM routine. 

Part 5: Assembler Compatibility - TransBASIC modules are 
written in PAL Assembler format. Techniques for porting them 
to another assembler were discussed here. 

Part 6: The USE Command - The command 'ADD' merges 
TransBASIC modules into text space. However, as more mod- 
ules are ADDed, merging gets slow. The USE command was 
written to speed things up. USE also counts the number of 
modules USEd and updates line 95 automatically. 

To take advantage of the TransBASIC command system, one 
must first obtain a copy of the TransBASIC Kernel. The Kernel is 
only about 500 bytes long, but the source listing of the Kernel is 
quite long and can 't be printed each time. Volume 5, Issue 05 
(Hardware & Peripherals) contains the printed listing, however 
The Transactor Disk for every issue will include this file, plus 
files from the current and all previous TransBASIC articles. 



TransBasic Part 7 

If you have been following TransBASIC for the last several 
issues, you will be relieved to learn that this installment is 
rather shorter than the two that preceded it. This is due to a 
lack of time, however, not to a lack of fresh modules, which are 
in plentiful supply. 

Darren Spruyt is back this issue with a set of three editing 
commands. Included are a block delete, automatic line num- 
bering, and line renumbering. The AUTO command in Dar- 
ren's module works by intercepting the BASIC warm start 
vector. This marks the first time that TransBASIC has altered 



any system vector apart from those used by the kernel, and it 
introduces the possibility of a new problem that we will have to 
deal with. 

The problem will arise when more than one module changes 
the same vector. When you build a TransBASIC dialect, the 
various modules you merge into the source code have no 
knowledge of each other and, if they happen to want to use a 
vector, there is no way for them to take into account the 
possibility that other modules might also be claiming that 
vector for their own purposes. It is not very likely that the 
resulting conflict would be peacefully resolved, and a crash 
would probably ensue. 

I suppose it would be possible to graft some supervisory routine 
onto the kernel even at this late date, which could arbitrate 
access to the various vectors in some reasonable way. How- 
ever, it seems better to me to deal with vector conflicts manu- 
ally. To make this easy requires only that we establish a couple 
of rules to be followed in writing modules that alter vectors. 

The first rule is that the routine to initialize the vector should be 
called from a line within a special area of source code labelled 
'MORVEC; and that the routine to restore the vector should be 
called from a another area labelled *KILVEC\ MORVEC is 
permanently assigned lines 9162 through 9180; KILVEC gets 
the next twenty lines, from 9182 to 9200. The code in these 
areas is executed with JSR MORVEC on line 2125, and JSR 
KILVEC on line 2555. These instructions must also be included 
in any module that alters vectors. 

The second rule requires that if a particular vector has been 
used by an existing module, the lines assigned to it in MORVEC 
and KILVEC are also to be used in any future module that alters 
the same vector. This will mean that if both modules occur in 
the same dialect, only one will function, since the second one 
to be merged will overwrite the initialization call of the first. 
This might be a nasty surprise, but it should avoid crashes. 

By the way, a thorough discussion of vector conflicts, and of 
what can be done about them, can be found in Chris Zamara's 
article, 'Flexible Vector Management', in Volume 6, Issue 2. 

Another module in this issue comes from Anton Treuenfels, 
who has provided versions of RESTORE, GOTO and GOSUB 
with computed destination lines. Anton's own version of this 
module used the keywords CRESTORE, CGOTO and CGOSUB. 
However, the native BASIC command is in each instance a 
subset of the computed command, so I dropped the Cs for the 
version published here. Decoding the line numbers via the 
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expression evaluator, as this module does, is going to be a hair 
slower than the conversion routine used by the ROM, but this 
won't often matter. If you would prefer to have the ROM 
commands co-exist with Anton's computed commands, 
change the keywords back. (This is not necessary with RE- 
STORE, of course, since the ROM version won't accept a line 
number anyway.) 

The other modules in this issue provide a couple of commands 
borrowed from LISP via LOGO (the FIRST$( and BF$( func- 
tions), and a command to return a random integer in a specified 
range. 

Last issue The Transactor published a very handy unassembler 
for the C-64, by J. Lothian of Ottawa. Unfortunately for PAL 
users, the program generates sequential files of assembly lan- 
guage source code, without numbers. Such files are used by the 
Commodore assembler, but are not compatible with PAL. 
Converting from one format to the other is not arduous, 
however. The short BASIC program given as Program 5 will 
take care of converting the sequential file to a numbered 
program in memory. There will still be some editing needed to 
make the file fully PAL-compatible — as a start, you'll need to 
delete the conversion routine itself, and put a SYS 700 line at 
the top of the file. 

Next issue, look for a multicolour graphics package from 
Darren Spruyt, a modified INPUT or two, and more. 

New Commands 

AUTO (Type: Statement Cat *: 136) 
Line Range: 9406-9480 
Module: PRG MANAGEMENT 
Example: AUTO 100,10 

Begin automatic line numbering from line 100, with incre- 
ments of 10. This command intercepts the BASIC warm start 
vector at $0302. It will not be compatible with any future 
TransBASIC commands that use this vector. 

DEL (Type: Statement Cat *: 1 37) 

Line Range: 9234-9404 

Module: PRG MANAGEMENT 

Example: DEL 275-890 

Example: DEL - 

Delete specified lines. The line number syntax is the same as 

the LIST command, except that DEL by itself does nothing. The 

second example is equivalent to NEW — be careful. 

REN (Type: Statement Cat *: 138) 

Line Range: 9482-10096 

Module: PRG MANAGEMENT 

Example: REN 300-600,20,5 

Example: REN 10,1 

Renumber a range of lines with a specified new starting line 

number and increment. Statements with target line numbers 

(GOTO, GOSUB, ON-GOTO, etc.) are modified accordingly, 

with the exception of LIST and RUN. If no line range is given, as 

in the second example, the whole program is renumbered. 



RESTORE (Type: Statement Cat*: 139) 

Line Range: 10124-10148 

Module: COMPUTED CMDS 

Example: RESTORE 

Example: RESTORE 1200 

Example: RESTORE N + 100 

Identical to BASIC'S RESTORE statement except that, as in the 

second example, a line number may be given specifying a point 

in the program at which the next data read is to begin. The line 

number is evaluated as a BASIC expression, hence the third 

example is legal. 



GOSUB (Type: Statement Cat *: 140) 

Line Range: 10150-10180 

Module: COMPUTED CMDS 

Example: GOSUB SQR(PX + C%(6))*RND(1)/SIN(1. 2) 

This is a computed GOSUB. The target line is determined by 

evaluating the expression after the GOSUB keyword. 



GOTO (Type: Statement Cat # : 141) 

Line Range: 10182-10188 

Module: COMPUTED CMDS 

Example: GOTO 100 

Example: GOTO BLAZES 

This is a computed GOTO. In the second example, the target 

line is the determined by evaluating the variable BLAZES. 



RANDOM( (Type: Function Cat *: 027) 

Line Range: 3216-3268 

Module: RANDOM 

Example: FOR 1 = 1 TO 220: PRINT RANDOM(1 00,999); 

:NEXT 
A random integer is returned in the specified range (inclusive). 
The range boundaries are treated as integers. 



FIRST$( (Type: Function Cat # : 028) 

Line Range: 3330-3452 

Module: PHRASE SPLITTERS 

Example: PRINT FIRST$(" TRIALS, TROUBLES, 

TRIBULATIONS") 
The first word in the string argument is returned, up to but not 
including the first space or shifted space. Leading blanks are 
ignored. If the string is null or consists only of blanks, a null 
string is returned. 



BF$( (Type: Function Cat # : 029) 

Line Range: 3334-3452 

Module: PHRASE SPLITTERS 

Example: PRINT BF$(BF$(BF$(A$))) 

The argument string is returned beginning with the space or 

shifted space after the first word. BF stands for 'but first', after a 

LOGO primitive with a similar purpose. If the argument string 

is null, or consists only of blanks, or has only one word and no 

trailing blanks, a null string is returned. 
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Program 1 : PRG MANAGEMENT 


AC 


9240 


jsr store 


;save it 

; " - " token value 




KA 


9242 


cmp #$ab 




NG 


rem prg management (d. spruyt 1985) : 


OD 


9244 


bne dlt2 






FH 


1 : 


OB 


9246 


jsr $73 






GH 


2 rem 3 statements, functions 


OD 


9248 


bne dltl 






HH 


3: 


KL 


9250 


Ida #$ff 


;if no top, then 




DJ 


4 rem keyword chars: 10 


OA 


9252 


sta $52 


;set upper 




JH 


5: 


Ml 


9254 


sta $53 


;limit to $ffff 




NJ 


6 rem keyword routine line ser # 


CF 


9256 


bne dlt4 






FD 


7 rem s/auto car 9406 136 


DC 


9258 dltl 


jsr $a96b 


;get fixed pt num 




FD 


8rems/del dlt 9234 137 


LJ 


9260 dlt2 


sec 






OE 


9rems/ren rnum 9482 138 


JM 


9262 


Ida $14 


;move top line 




OH 


10: 


FF 


9264 


sta $52 


;numto($52) 




PJ 




DL 


9266 


sbc $50 


;and check that 






Al 


12: 


GF 


9268 


Ida $15 


;num2>= numl 




FK 


139 .asc "autOdeLreN" 


DA 


9270 


sta $53 






HA 


1 139 .word car-1 ,dlt-1 ,rnum-1 


BN 


9272 


sbc $51 






IC 


2125 jsr morvec 


HH 


9274 


bcs dlt3 






EL 


2555 jsr kilvec 


JD 


9276 


jmp $af08 


/syntax' 




Ol 


2620 usfp Idx #0 


PH 


9278 dlt3 


inc $52 


;bump num2 




AJ 


2622 stx $0d 


KG 


9280 


bne dlt4 






MA 


2624 sta $62 


BP 


9282 


inc $53 






BH 


2626 sty $63 


CM 


9284 dlt4 


Idx #$50 






ON 


2628 Idx #$90 


OD 


9286 


jsr uns 


;num1 to ($14) 




HM 


2630 sec 


OH 


9288 


jsr $a613 


;tind line 




NH 


2632 jmp $bc49 


DG 


9290 


Ida $5f 


;copy pntr 




AM 


2634; 


IK 


9292 


sta $22 


; to ($22) 




EE 


9150errpgm Idx $3a ; test hi byte of 


GN 


9294 


Ida $60 






EJ 


9152 inx ; 'curlin' - $ff 


HB 


9296 


sta $23 






Gl 


9154 bne epgl ;no 


II 


9298 


Idx #$52 


;num2to($14) 




AL 


9156 rts 


DB 


9300 


jsr uns 






Kl 


9158 epgl jmp $af08 ;'syntax' 


Ml 


9302 


jsr $a613 


;find line 




OD 


9160; 


GO 


9304 


jmp dltl 1 


;skip over seg 




NF 


91 62 morvec = * 


MM 


9306 dlt5 


sec 






NF 


9164 jsr auton ; warm start $302 


AB 


9308 


Ida $2d 


; move from 




GM 


9178 rts 


FA 


9310 


sbc $5f 


; ($5f)-($2d) 




CF 


9180; 


CF 


9312 


sta t2 


; to ($22) t 




MJ 


9182 kilvec = * 


AN 


9314 


Ida $2e 


;calc pages 




ID 


9184 jsr autoff ;warm start $302 


OJ 


9316 


sbc $60 


; + remainder $02 




KN 


9198 rts 


BD 


9318 


tax 






GG 


9200; 


EE 


9320 


inx 






FN 


9202 autoff Ida wrmsrt 


FL 


9322 


Idy #0 






MH 


9204 sta $302 


NE 


9324 


beq dlt7 


;init.y 




IE 


9206 Ida wrmsrt +1 


DN 


9326 dlt6 


Ida ($5f),y 


transfer data 




El 


9208 sta $303 


AH 


9328 


sta ($22),y 






GO 


9210 rts 


CF 


9330 


iny 






CH 


9212; 


GK 


9332 


bne dlt6 






HK 


921 4 auton Ida $302 


OB 


9334 


inc $60 






OM 


9216 sta wrmsrt 


BC 


9336 


inc $23 






AF 


9218 Ida $303 


LC 


9338 dlt7 


dex 


;more pages 




EJ 


9220 sta wrmsrt +1 


GL 


9340 


bne dlt6 


;yes 




OK 


9222 Ida #>auto 


GG 


9342 dlt8 


cpy $02 






EJ 


9224 sta $303 


DN 


9344 


beq dlt9 






GL 


9226 Ida #<auto 


GK 


9346 


Ida ($5f),y 


;copy remainder 




EJ 


9228 sta $302 


El 


9348 


sta ($22),y 






KP 


9230 rts 


GG 


9350 


iny 






Gl 


9232; 


CM 


9352 


bne dlt8 






HB 


9234 dlt jsr errpgm 


NJ 


9354 dlt9 


tya calculate 






LL 


9236 jsr $a96b ;get fixed pt number 


DD 


9356 


clc 


; new start-of- 




EK 


9238 Idx #$50 


AC 


9358 


adc $22 


; variables pntr 
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Kl 


9360 


HL 


9362 


ND 


9364 


CM 


9366 


FJ 


9368 


Gl 


9370 


JB 


9372 


JC 


9374 


AC 


9376 


IJ 


9378 


KB 


9380 


LN 


9382 


OG 


9384 


DB 


9386 


DE 


9388 


KJ 


9390 


GC 


9392 


DL 


9394 


IF 


9396 


FK 


9398 


DO 


9400 


GK 


9402 


CD 


9404 


GJ 


9406 


Al 


9408 


NL 


9410 


HH 


9412 


PE 


9414 


OK 


9416 


OM 


9418 


IG 


9420 


BJ 


9422 


GE 


9424 


EE 


9426 


IL 


9428 


HP 


9430 


LH 


9432 


MB 


9434 


HE 


9436 


GF 


9438 


EL 


9440 


KO 


9442 


BJ 


9444 


IL 


9446 


FH 


9448 


MJ 


9450 


LB 


9452 


ED 


9454 


MA 


9456 


PH 


9458 


NC 


9460 


PL 


9462 


Fl 


9464 


KN 


9466 


GO 


9468 


EJ 


9470 


KC 


9472 


EF 


9474 


PM 


9476 


CL 


9478 



dltlO 



dim 



store 



uns 



car 



auto 



autl 



aut2 



aut3 



aut4 



aut5 



sta $2d 




bcc dltlO 




inc $23 




Ida $23 




sta $2e 




rts 




jsr dlt5 


;move mem 


jsr $a533 


;re-chain 


jsr $a659 


;clr/fix pntrs 


jmp $a474 


; return to ready 


Idy $14 


;copy from 


sty 0,x 


;($14)to 


Idy $15 


;0,x 


sty 1,x 




rts 




Idy 0,x 


;copy from 


sty $14 


;0,x 


Idy 1.x 


;to($14) 


sty $15 




rts 




jsr errpgm 


;auto function 


jsr $a96b 


;get num 


jsr aneval 


;evaluateexpr 


sta step 


;step value 


Ida $51 




Idy $50 




Idx #1 


;set flag 


stx cont 




jmp aut3 


;print value 


Idy $200 


;($302) vector 


bne autl 


;line entered 


sty cont 


;zero lock 


Idy cont 


;get lock 


beq aut5 


;nogo 


Ida $14 


;take currline# 


clc 


;and add step 


adc step 


; value to it 


bcc aut2 




inc $15 




tay 




Ida $15 




jsr strng 


;make string 


Idy #$ff 


; push string 


iny 


; into kb buffer 


Ida $100,y 




sta $277,y 




bne aut4 




Ida #$20 


;add space 


sta $277,y 




iny 




sty $c6 


;set buff chars 


Ida wrmsrt 




sta $14 


;create indirect 


Ida wrmsrt +" 


I 


sta $15 




jmp ($14) 


;jmp thru 



OH 

OA 

El 

AM 

DD 

CC 

Ol 

GB 

CI 

JD 

MA 

EC 

IJ 

CI 

PD 

IO 

CK 

KC 

EK 

Ol 

LE 

OG 

LJ 

IA 

FF 

FP 

HP 

CA 

GA 

IE 

CC 

BH 

AJ 

NC 

EB 

EO 

LB 

II 

BE 
AN 
GG 
NC 
EE 
GC 



NC 

NM 

DL 

Dl 

PF 

MC 

Jl 

IL 

BK 

PC 

EH 

DN 

MJ 

IB 

KE 



rnm1 
rnm2 



rnm3 



9480; 

9482 rnum 

9484 

9486 

9488 

9490 

9492 

9494 

9496 

9498 

9500 

9502 

9504 

9506 

9508 

9510 

9512 

9514 

9516 

9518 

9520 

9522 

9524 

9526 

9528 

9530 

9532 

9534 

9536 

9538 rnm4 

9540 

9542 

9544 

9546 rnm5 

9548 

9550 

9552 

9554 

9556 

9558 

9560 

9562 

9564 

9566 

9568 

9570 

9572 

9574 

9576 

9578 

9580 

9582 

9584 

9586 

9588 

9590 

9592 

9594 rnm6 

9596 

9598 rnm7 



jsr errpgm 
jsr $a96b 
cmp #$ab 
bne rnm3 
Idx #$45 
jsr store 
jsr $73 
cmp #$2c 
bne rnm2 
jmp $af08 
jsr $79 
jsr $a96b 
cmp #$2c 
bne rnml 
Idx #5 
jsr store 
jsr $73 
jsr $a96b 
cmp #$2c 
bne rnml 
beq rnm4 
Idy #0 
sty $45 
sty $46 
dey 
dey 
sty t5 
sty t6 
jsr aneval 
inc t5 
bne rnm5 
inc t6 
Ida $45 
sta $14 
Ida $46 
sta $15 
jsr $a613 
Ida $5f 
sta $ac 
Ida $60 
sta $ad 
Ida t5 
sta $14 
Ida t6 
sta $15 
jsr fndlin 
Idy #1 
Ida ($5f),y 
beq rnm7 
Idy #3 
Ida ($5f),y 
cmp $ab 
bne rnm6 
dey 

Ida ($5f),y 
cmp $aa 
bcs rnm7 
jmp $b248 
Ida #0 



;eval num 
; " - " token 

;save start line 



;disallow comma 

; 'syntax' 

;eval num 
;comma required 



;save end line 



;eval num 
;comma required 



;if no start/end 

; were specified 

; renumber whole prg 



;eval start/step 
;bumpend 



;($45)to($14) 



;tind line 
;($5f) to ($ac) as 
; pntr to start of 
; section to be 
; renumbered 
;($05)to($14) 



;calc new top line# 



;link zero-okay 
;nextlinehi 

; new top hi 



next line lo 
new top lo 
no conflict 
illegal quantity 
clr on/goto/gosub 
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JD 


9600 


sta onflg 


; flag 


GD 


9720 


jmp $a474 


;'ready.' 




GO 


9602 


Ida $2b 


;start-of-basic 


Nl 


9722rnm16 


iny 


; next char 




AB 


9604 


sta $3f 


; to ($3f) trace 


PA 


9724rnm17 


jsr rnm18 


;change l# 




PD 


9606 


Ida $2c 


* * 


AO 


9726 


Idy $97 


; restore .y 




KE 


9608 


sta $40 




EK 


9728 


jmp rnm10 


;return 




DN 


9610 rnm8 


Idy #2 




IL 


9730 ;match for change 






OG 


9612 


Ida ($3f),y 


;copy line number 


FB 


9732rnm18 


jsr nextch 


;cut thru space 




JG 


9614 


sta $39 




OC 


9734 


sty $97 


;save .y 




LB 


9616 


iny 


;to ($39) 


NM 


9736 


clc 


;fix chrget 




HK 


9618 


Ida ($3f),y 




FG 


9738 


tya 


; to .y plus 




HI 


9620 


sta $3a 




CD 


9740 


adc $3f 


; ($3f) - also 




BH 


9622 rnm9 


iny 




IK 


9742 


sta $7a 


;to($41) 




NK 


9624rnm10 


Ida ($3f),y 


;get byte 


FN 


9744 


sta $41 






01 


9626 


beq rnm14 


;zero byte 


GJ 


9746 


Ida $40 






AM 


9628 


cmp #$3a 


;colon 


BP 


9748 


adc #0 






CA 


9630 


beq rnm14 




ON 


9750 


sta $42 






Kl 


9632 


cmp #$89 


;goto token 


GB 


9752 


sta $7b 






IA 


9634 


beq rnm16 




IP 


9754 


jsr $79 


;set flags 




CM 


9636 


cmp #$8d 


;gosub token 


Fl 


9756 


jsr $a96b 


;eval number 




MA 


9638 


beq rnm16 




PJ 


9758 


sec 






LF 


9640 


cmp #$cb 


;go token 


IA 


9760 


Ida $7a 


;find length 




CE 


9642 


bne rnm11 


; followed by to 


Al 


9762 


sbc $41 


;of 




BD 


9644 


jsr nxtchl 




CI 


9764 


sta t2 






HG 


9646 


cmp #$a4 


;token to 


DG 


9766 


sec 


;chk number is 




GB 


9648 


beq rnm16 




IC 


9768 


Ida $14 


; in range 




NP 


9650 


bne rnm10 




AG 


9770 


sbc t5 






NP 


9652rnm11 


cmp #$a7 


;then token 


JL 


9772 


Ida $15 






DA 


9654 


bne rnm12 




GG 


9774 


sbc t6 






ND 


9656 


jsr nxtchl 




GG 


9776 


bcs rnm19 


;line above top 




ED 


9658 


cmp #$30 


;check for 


DL 


9778 


sec 






GM 


9660 


bcc rnm10 


; numeric 


OL 


9780 


Ida $14 






DH 


9662 


cmp #$3a 




JN 


9782 


sbc $45 






JO 


9664 


bcc rnm17 




FM 


9784 


Ida $15 






EC 


9666 


bcs mm 10 




AO 


9786 


sbc $46 






HK 


9668rnm12 


cmp #$91 


;on token 


AO 


9788 


bcs rnm20 


;line below bottom 




EB 


9670 


bne rnm13 




BM 


9790 ;line to be renumbered here 




HN 


9672 


sta onflg 


;set on flag 


OF 


9792rnm19 


jmp rnm31 






OD 


9674 


jmp rnm9 




NB 


9794 rnm20 


jsr fndlin 


;figure new l# 




AK 


9676rnm13 


cmp #$2c 


;commas 


JK 


9796 


Idy #$ff 


;newlineat$100 




AC 


9678 


bne rnm9 


; fetch next byte 


IA 


9798 rnm21 


iny 






FF 


9680 


Ida onflg 




EG 


9800 


Ida $100,y 






ON 


9682 


beq rnm9 


;on not active 


KJ 


9802 


bne rnm21 






FL 


9684 


bne rnm16 


;on active 


LM 


9804 


tya 


; new length 




DF 


9686rnm14 


Idx #0 




PM 


9806 


sec 






PE 


9688 


stx onflg 


;clr on state 


LA 


9808 


sbc t2 


;sub initial len 




OP 


9690 


cmp #$3a 


;colon 


PP 


9810 


bmi rnm26 


; remove some 




LG 


9692 


beq rnm9 


;fetch next 


LD 


9812 


beq rnm28 


; right size 




NH 


9694 


Idy #1 


;check link hi 


IL 


9814;addin 


.a spaces 






FP 


9696 


Ida ($3f),y 




GL 


9816 


sta t2 






OL 


9698 


beq rnm15 


;end of memory 


LN 


9818 


sec 






PK 


9700 


tax 




MK 


9820 


Ida $38 


;check for space 




BK 


9702 


dey 




JB 


9822 


sbc $2e 


;betweenendof mem 




FA 


9704 


Ida ($3f),y 


;get link lo 


HH 


9824 


bne rnm22 


;and start of 




MO 


9706 


sta $3f 




Bl 


9826 


sec 


; variables 




KA 


9708 


stx $40 




LP 


9828 


Ida $37 






DA 


9710 


jmp rnm8 


;start new line 


CD 


9830 


sbc $2d 






OH 


9712rnm15 


Idx #5 




NM 


9832 


cmpt2 






BL 


9714 


jsr uns 




LL 


9834 


bcs rnm22 


;space available 




IJ 


9716 


jsr number 


;renumber lines 


MG 


9836 


jmp $a435 


;out of memory 




KG 


9718 


jsr $a659 


;clr 


BK 


9838 rnm22 


Ida $41 


;start of block 
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GH 


9840 


sta 


$5f 




HA 


9960 ;assumed line# is in ($14) 




IN 


9842 


Ida 


$42 


;to move ($5f) 


LD 


9962 


Idy #3 






KD 


9844 


sta 


$60 




PO 


9964 


Ida ($5f),y 


;get line hi 




FP 


9846 


Ida 


$2d 


;end of block 


DD 


9966 


cmp $15 


;check it 




PG 


9848 


sta 


$5a 




Ol 


9968 


bne fdln2 






MG 


9850 


Idx 


$2e 


;tomove ($5a) 


NK 


9970 


dey 






CN 


9852 


stx 


$5b 




BB 


9972 


Ida ($5f),y 


;get line lo 




DF 


9854 


clc 




;end of new block 


GA 


9974 


cmp $14 


;test if found 




CJ 


9856 


adc 


t2 




HJ 


9976 


beq fdln6 


; yes 




GP 


9858 


bcc 


rnm23 


;when moved 


BN 


9978 fdln2 


bcs fdln5 


; no 




AG 


9860 


inx 






LG 


9980 


bit numb 


;test renum pass 




IM 


9862 rnm23 


stx 


$2e 


;($58) 


LF 


9982 


bpl fdln3 


;no 




CI 


9864 


sta 


$2d 




AB 


9984 


Idy #2 


;yes, put 




GG 


9866 


sta 


$58 




CO 


9986 


Ida $aa 


; new line number 




HM 


9868 


stx 


$59 




PE 


9988 


sta ($5f),y 


; into memory 




NB 


9870 


inc 


$5a 


;inc ($5a) by 1 


KN 


9990 


Ida $ab 






DO 


9872 


bne 


rnm24 




IO 


9992 


iny 






OG 


9874 


inc 


$5b 




DG 


9994 


sta ($5f),y 






LD 


9876 rnm24 


inc 


$58 


;inc ($58) by 1 


DA 


9996 fdln3 


Ida $aa 


;take ($aa) and 




KO 


9878 


bne 


rnm25 




DG 


9998 


clc 


; add step value 




JF 


9880 


inc 


$59 




Ol 


10000 


adc $52 






PE 


9882 rnm25 


jsr 


$a3bf 


;move memory 


BC 


10002 


sta $aa 






GC 


9884 


jmp 


rnm28 


;putinline# 


LI 


10004 


bcc fdln4 






CO 


9886 rnm26 


eor 


#$ff 




KA 


10006 


inc $ab 






GB 


9888 


clc 






MO 


10008 


Ida $ab 






HO 


9890 


adc 


#1 


;calc # bytes move 


IL 


10010 


cmp #$fa 


;test over 64000 




CA 


9892 


sta 


t2 




PC 


10012 


bcc fdln4 


;no 




JP 


9894 


Ida 


$41 


;($22) = bottom 


FJ 


10014 


jmp $b248 


; 'illegal quantity' 




MG 


9896 


sta 


$22 




Bl 


10016fdln4 


Idy #0 






AJ 


9898 


Idx 


$42 


;($5f) = old bottom 


KB 


10018 


Ida ($5f),y 


;get new link lo 




PM 


9900 


stx 


$23 




PO 


10020 


tax 






AF 


9902 


clc 




;dlt5 


IM 


10022 


iny 


;get new link hi 




CM 


9904 


adc 


t2 




DE 


10024 


Ida ($5f),y 






II 


9906 


sta 


$5f 


;move ($5f)-($2d) 


DD 


10026 


bne fdlnl 


;continue if >0 




BO 


9908 


bcc 


rnm27 




OH 


10028fdln5 


Ida #$f9 


;drophereif =0 




JB 


9910 


inx 




;to ($22)-($2d) 


OB 


10030 


Idy #$ff 


;set num to 63999 




FG 


9912rnm27 


stx 


$60 




GK 


10032; 








LD 


9914 


jsr 


dlt5 




Ml 


1 0034 strng 


jsr usfp 


;make fp val 




GF 


9916 mm28 


Idy 


#0 


;putin linenum 


OB 


10036 


jmp $bddf 


;make strng at $100 




HI 


9918rnm29 


Ida 


$100,y 




MA 


1 0038 fdln6 


Ida t2 


;if old len then ; 




IC 


9920 


beq 


rnm30 




GB 


10040 


beq fdln5 


;make new 63999 




EM 


9922 


sta 


($41).y 




OA 


10042 


Ida $ab 






EK 


9924 


iny 






NG 


10044 


Idy $aa 






IH 


9926 


bne 


rnm29 


;finish up 


CN 


10046 


jmp strng 


;make string 




LE 


9928 rnm30 


jsr 


$a533 


;re-chain 


GL 


1 0048 ; 








AL 


9930 rnm31 


rts 




;end 


KH 


1 0050 aneval Idx #$50 


; evaluate two 




CE 


9932; 








EK 


10052 


jsr store 


; params & save 




FP 


9934 fndlin 


Ida 


#0 


;finds line, calcs 


MA 


10054 


jsr $73 


;used 




AK 


9936 


Ida 


#0 


; new line number 


BK 


10056 


jsr $b79e 


; with num 




NK 


9938 


.byt 


9$2c 




MB 


10058 


stx $52 


; and auto 




PC 


9940 number Ida 


#$80 


;also renums 


AA 


10060 


txa 






BB 


9942 


sta 


numb 


;if entry number 


FA 


10062 


bne anevl 






OF 


9944 


Ida 


$50 




BF 


10064 


jmp $b248 






JO 


9946 


sta 


$aa 




DC 


1 0066 anevl 


rts 






FG 


9948 


Ida 


$51 




KM 


1 0068 ; 








PK 


9950 


sta 


$ab 


;set start l# 


JN 


10070 nxtchl iny 


;skip thru 




KL 


9952 


Ida 


$ad 




AG 


10072 nextch Ida ($3f),y 


; until 




FB 


9954 


Idx 


$ac 




FA 


10074 


cmp #$20 


; non-space 




ML 


9956 fdlnl 


stx 


$5f 




DK 


10076 


beq nxtchl 






JA 


9958 


sta 


$60 


;set start pntr 


KE 


10078 


rts 
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GN 
BE 
KC 
MN 
OL 
AG 
LM 
DH 
GO 



EA 

FH 

GH 

HH 

NE 

JH 

NJ 

GG 

HI 

MD 

OH 

JD 

Al 

Al 

NC 

LM 

IH 

EG 

CP 

PG 

MG 

PO 

NA 

PF 

BB 

EB 

Dl 

KB 

PD 

GB 

FB 

IC 

LG 

MC 

Gl 

AD 

DF 

ED 

GM 

ID 

JB 

NF 

FO 

KD 

KK 

DK 

DG 

CE 



1 0080 ; 

1 0082 .if >(*&255) + 7: • = • + (*&1 ) 

10084 wrmsrt.word 

1 0086 ; 

10088cont .byteO 

10090 step .byte$0a 

10092onflg .byteO 

10094 numb .byteO 

1 0096 ; 



Program 2: COMPUTED CMDS 

rem computed cmds (a. treuenfels) : 

1 : 

2 rem 3 statements, functions 
3: 

4 rem keyword characters: 1 6 
5: 



routine 
restor 
cgosub 
cgoto 



line ser # 
10124 139 
10150 140 
10182 141 



6 rem keyword 

7 rem s/restore 

8 rem s/gosub 

9 rem s/goto 
10: 

1 1 rem .. = = = = = = = = = = = = = = = = = «■«.«.»«. 

12: 

140 .asc " restorEgosuBgotO " 

1 140 .word restor- 1 , cgosub- 1 , cgoto- 1 



jsr $79 
bne crsl 
jmp $a81d 
jsr $ad8a 
$b7f7 
$a613 
crs2 
$5f 
#1 
$60 
$a824 
$a8e3 



jsr 

jsr 

bcc 

Ida 

sbc 

Idy 

jmp 

imp 



10124 restor 

10126 

10128 

10130 crsl 

10132 

10134 

10136 

10138 

10140 

10142 

10144 

10146 crs2 

10148; 

101 50 cgosub Ida #3 

10152 jsr $a3fb 

10154 Ida $7b 

10156 pha 

10158 Ida $7a 

10160 pha 

10162 Ida $3a 

10164 pha 

10166 Ida $39 

10168 pha 

10170 Ida #$8d 

10172 pha 

10174 jsr $79 

10176 jsr cgoto 

10178 jmp $a7ae 

10180; 

10182 cgoto jsr $ad8a 

10184 jsr $b7f7 

10186 jmp $a8a3 

10188; 



;chk end of stmt 
;no 

; regular restore 
;get num expr 
;conv to line # 
;search for line 
; not found 
;line link low 
;find line start 
;line link high 
;set data ptr 
;'undef'd stmt' 

;chk stack space 

;save chrget ptr 



;pushcrnt line* 



;push gosub token 

;get crnt char 
;getsubrtn strt 
; execute stmts 

;get num expr 
;conv to line # 
;enter goto rtn 



PA 

FH 

EC 

HH 

HO 

JH 

NJ 

JE 

MH 

Dl 

HI 

PH 

KD 

Bl 

KM 

EO 

LJ 

CE 

HD 

HC 

NA 

KE 

DE 

MM 

IA 

AP 

PO 

AP 

II 

LD 
AN 
GL 
FG 
KD 
BJ 
BA 
IP 
El 
HA 
CP 
GF 
OA 
KD 
EG 
GD 
FC 
HJ 
GF 
OJ 
CH 
LB 
GC 
EF 
GL 
PD 
GN 
DH 
OF 



Program 3: RANDOM 



rem random (aug 24/84) 

1 : 

2 rem statements, 1 function 
3: 

4 rem keyword characters: 7 
5: 

6 rem keyword routine 

7 rem f/random( rndm 
8: 

9 rem u/pshfp1 (3270/063) 

1 rem u/pul57 (3308/064) 

11 : 
12rem = = = = = = = = = = = = = = = = = 

13: 

605 .asc " random " 
1605 .word rndm-1 
3216 rndm jsr $ad8a 



line 
3216 



ser# 
027 



jsr 

jsr 

jsr 

jsr 

jsr 

jsr 

jsr 

jsr 

Ida 

Idy 

jsr 

jsr 



3218 
3220 
3222 
3224 
3226 
3228 
3230 
3232 
3234 
3236 
3238 
3240 
3242 
3244 
3246 
3248 
3250 
3252 
3254 
3256 
3258 
3260 
3262 
3264 

3266 rdml 
3268; 

3270pshfp1 Ida 

3272 jsr 

3274 pla 

3276 sta 

3278 pla 

3280 sta 

3282 jsr 

3284 Idx 

3286 phfl Ida 

3288 pha 

3290 inx 

3292 cpx 

3294 bne 

3296 phf2 Ida 

3298 pha 



$bccc 
pshfpl 

$aefd 
$aef4 

$bccc 
$b849 
$b849 
pul57 
#$57 
#0 

$b850 
$bc2b 
cmp#1 
beq rdml 
jsr $bc58 
$bbc7 
$e0be 
#$5c 
#0 

$ba28 
#$57 
#0 

$b867 
jmp $bccc 
jmp $b248 



#3 
$a3fb 

$71 

$72 
$bbca 
#0 
$57,x 



jsr 
jsr 

Ida 

Idy 

jsr 

Ida 

Idy 

jsr 



#5 

phfl 

$72 



eval numl 
conv to integer 
push fac 1 
check comma 
eval num2, chk) 
conv to integer 
add 0.5 twice 

;pull numl to $57 



num1-num2 
get sign of result 
test if positive 
yes 

abs(fac 1 ) 
copy fac 1 to $5c 
rnd(1)tofad 
* (num2 + 1-num1) 



;+ numl 



;conv to integer 
/illegal quantity' 

;chk stack space 

;save return addr 



;fac 1 to $57 
;push $57-$5b 



; restore rtsaddr 



The Transactor 



23 



Volume 6, Issue 05 





BH 


3300 Ida $71 




GF 


3384 sta t4 


; a space 




CG 


3302 pha 




OA 


3386 beq fbfl 


; branch always 




EN 


3304 rts 




JF 


3388 fbf3 bit t4 


;test prev char was 




AG 


3306; 




IH 


3390 bpl fbf4 


; space - no 




GA 


3308 pul57 pla 


;save return addr 


BM 


3392 dec t3 


;dec effective str 




JL 


3310 sta $71 




GP 


3394 inc $22 


; len, bump 




IH 


3312 pla 




PF 


3396 bne fbf2 


; effective addr 




AM 


3314 sta $72 




PO 


3398 inc $23 






Al 


3316 Idx #4 


;pull $57-$5a 


LA 


3400 bne fbf2 


; branch always 




NA 


3318 pl57 pla 




OP 


3402 fbf4 pip 


;test if 'first' 




JN 


3320 sta $57,x 




NF 


3404 bcs fbf5 


;yes 




BL 


3322 dex 




EP 


3406 tya 


i push index 




DA 


3324 bpl pl57 




MM 


3408 pha 






EO 


3326 bmi phf2 


; branch always 


BO 


3410 sec 


; subtract from 




GH 


3328; 




EM 
OP 


3412 sbc t3 
3414 eor #$ff 


; str len 












OM 


3416 cic 




Program 4: PHRASE SPLITTERS 


JD 


3418 adc #1 










25/84) : 


DB 
PP 


3420 tay 
3422 pla 


use as new index 
add old index to 




AO 


rem phrase splitters (aug 




FH 


1 : 




Fl 


3424 adc $22 


address 




DH 


2 rem statements, 2 functions 


GC 


3426 sta $22 






HH 


3: 




NC 


3428 bcc fbf5 






DE 


4 rem keyword characters: 


11 


PA 


3430 inc $23 






JH 


5: 




AM 


3432 fbf5 tya 


; reserve space for 




NJ 


6 rem keyword routine 


line ser # 


NJ 


3434 jsr $b47d 


I new string 




NF 


7 rem f/first$( first 


3330 028 


LD 


3436 tay 






NO 


8 rem f/bf$( bf 


3334 029 


EE 


3438 fbf6 dey 


;copy string to 




NH 


9: 




NO 


3440 cpy #$ff 


; new space 




ID 






Bl 


3442 beq fbf7 




lU ICfll = = = = = = ==== = = = = ==5 






PH 


11 : 




GD 


3444 Ida ($22),y 






IF 


606 .asc "first$bf$" 




CI 


3446 sta ($62), y 






JH 


1606 .word first-1,bf-1 




FE 


3448 bcc fbf6 






CP 


3330 first sec 


;flag set = first 


OE 


3450 fbf7 jmp $b4ca 


create descriptor 




AN 
OB 


3332 .byte $24 
3334 bf cic 


;flag clr = bf 


CP 


3452; 










JO 


3336 php 


;push flag 








FO 


3338 jsr $aef4 


;eval str, check ) 


Program 5: Convert SEQ source to PAL source |] 




LD 


3340 jsr $b6a3 
3342 sta t3 


;set up ptr to str 
;save length 








MN 


IG 


1 openl A2, " 0:seqfile " :l = 1 000 




PE 


3344 txa 


;push str data addr 


CP 


2print"W":fori = 0to8:print 


l;:l = l + 2 




01 


3346 pha 




IK 


3 get# 1 , a$ : s = - (st = 0) : if s = 0goto5 




LM 


3348 tya 




NH 


4 ifa$Ochr$(1 3)thenprinta$;:goto3 




CJ 


3350 pha 




GD 


5 print:nexti 






GF 


3352 Ida t3 


; reserve space in 


EG 


6 ifsthenprint " I = " ;l; " :poke1 52,1 :goto2 " 




CG 


3354 jsr $b47d 


; string storage 


LJ 


7 fori = 631 to639 + s:pokei,1 3:next 




PL 


3356 pla 


;store data addr 


CD 


8 poke198,9 + s:close1-s:print"B" ;:end 




DN 
IK 


3358 sta $23 
3360 pla 


; at ($22) 


NH 


9: 










GO 


3362 sta $22 










JJ 


3364 Idy #$ff 


;set up .y index, 








DM 


3366 sty t4 


; and flag in t4 








GG 


3368 fbf 1 iny 


;bump index 








HA 


3370 fbf2 cpy t3 


;test = str len 








HD 


3372 beq fbf4 


;yes 








PE 


3374 Ida ($22) ,y 


;test current str 








BL 


3376 and #$7f 


; byte is space 








LG 


3378 cmp#" " 


; or shift-space 








LD 


3380 beq fbf 3 


;yes 








HH 


3382 Ida #0 


; clear flag - not 







The Transactor 



24 



Volume 6, toMM OS 



The Commodore 128: 
Impressions and Observations 



John Holttum 
Seattle, WA 



Since I have been commissioned by a local software company to 
translate a book of BASIC 2.0 games to BASIC 7.0, 1 was able to obtain 
a CI 28 and 1571 directly from Commodore during the first week of 
September (as part of my contract). Now, even with three weeks of 
programming and evaluation time under my belt, the honeymoon is 
far from over. As I've told some of my friends, programming in 128 
mode evokes feelings close to guilt that so much is so easy! It makes 
one realize how inhibiting BASIC 2.0 can be. Yet there have also been 
some disappointments which are worth bringing to light. 

First, the machine is not 100% bug-free; not that anyone expected it 
to be, but one always hopes. So far the problems seem minor. One 
merely academic bug is in the sequence which brings the keyboard 
out of auto-insert mode (yes, Virginia, there is auto-insert, and flash, 
and on-screen underlining). It does not work as stated. That is, if you 
enable auto-insert with ESC-A, you won't get out of it with ESC-O. 
However, there is an alternate sequence (ESC-C) which does disable 
the feature as well as cancelling quote mode. 

The second problem is a little more sobering. The SAVE-® bug is 
alive and well in the 1571!! 1 was one of those individuals who had 
never had too much trouble with SAVE-® on my 1541, having only 
been stung by it once even with liberal use of the command. Yet my 
1571 has already replaced inappropriate files twice while in 128 
mode. Personally, I think the bug is an ancient Gypsy curse placed on 
CBM and all its descendants, but who's to say? 

My final complaint is not a bug at all, but a bit of frustration over the 
user's manual. As promised, this is the first clearly written and truly 
attractive book seen from CBM, but I'm repeatedly disappointed by 
how shallow the material is. Perhaps we C64 hackers are spoiled, 
having "grown up" with such a well-understood machine. 1 know 
that my own history with Apple computers and documentation makes 
the new 128 manual look more than adequate in content. Still, I am 
irritated that there is no detailed memory map nor table of vital 
memory locations (like keyboard buffer, character sets, etc.). Further- 
more, the CP/M section offers little practical information, especially 
for those of us new to the venerable operating system. I asked CBM 
about that and about the ESC-0 problem through CompuServe's CBM 
Hotline and was informed that the new reference manual was on the 
way to the printers, whatever that means, but that the Service Manual 
(part # 3 1400 1-07) is available by sending $28.00 to the following 
address: 

Commodore Service Dept. 

C-2654 

1200 Wilson Drive 

West Chester, PA 19380 

They knew nothing about the ESC-0 bug, but said they would contact 
the Technical Support Group about it. It may be unique to my 
machine. So as not to sound too negative, let me say that the BASIC 
7.0 encyclopedia contained in the manual is very helpful and well- 
organized. 

So what do I really think of the 128? I think it's undoubtedly 
Commodore's best effort to date. And despite the above irritations I 
find it the most satisfying PC I've worked on yet, including the Apple 
lie, II + , lie, C64, and IBM PC. The 128 mode is not just a fat C64. The 
ESC sequences provide for editing functions far above those for the 
64, such as downward scrolling of text, line insertion, partial screen 
clearing, and easy window formation, all of which are available within 



programs as well. The 1571 seems to be able to read anything I put 
into it, including Kaypro disks, old C64 CP/M disks, and a couple 1 
don't know what they are. RGB output to my $249 Sears TVS monitor 
(requires a $15 cable and includes a TV and composite monitor) is 
quite nice. It's not the Amiga, but frankly, on my budget, I neither 
need nor want an Amiga. The 128 system is certainly more computer 
than I expected to own for many years. 



Observations 

In the interest of revealing the 128's innards, I have noted three 
keyboard scanning memory locations I divined by continuously 
displaying the first 256 bytes of memory on screen and pressing keys 
to see what happened. I hope they're helpful. 

Locations 212 and 213 read most of the keys on the 128 keyboard. 
The values returned when one of these locations is PEEKed are listed 
below. These values remain the same whether or not the CONTROL, 
SHIFT, or CBM keys are also pressed. 



A- 10 


L-42 


W-9 


7 


-24 


: -45 


F7/F8 - 3 


B-28 


M-36 


X-23 


8 


-27 


; -50 


ESC -72 


C-20 


N-39 


Y-25 


9 


-32 


, -47 


TAB - 67 


D-18 


0-38 


Z- 12 


+ 


-40 


-44 


HELP -64 


E- 14 


P-41 


0-35 


- 


-43 


/ -55 


LFEED -75 


F-21 


Q-62 


1-56 


£ 


-48 


= -53 


NO SCROLL- 87 


G-26 


R- 17 


2-59 


HOME 


-51 


«- -57 


RETURN -1 


H-29 


S- 13 


3-8 


DEL 


-0 


SPACE- 60 


NO KEY -88 


1-33 


T-22 


4-11 


t 


-54 


F1/F2-4 




J -34 


U-30 


5-16 


* 


-49 


F3/F4 - 5 




K-37 


V-31 


6-19 


@ 


-46 


F5/F6 - 6 





The Keypad on the right has codes separate from the number keys on 
the main keyboard. They are: 

0-81 3-79 6-77 9-78 - -74 

1-71 4-69 7-70 .-82 ENTER- 76 
2-68 5-66 8-65 +-73 

Likewise, the cursor keys above the keyboard have different codes 
from those at the bottom. At the bottom, the LEFT/RIGHT key has a 
value of 2, while the UP/DOWN key has a 7. At the top of the 
keyboard, UP = 83, DOWN = 84, LEFT =85, and RIGHT = 86. 

CONTROL, C = (CBM logo), SHIFT, ALT, and CAPS LOCK are all read 
by location 21 1 . It appears that the first three bits of this byte indicate 
the status of SHIFT, C = , and CONTROL, respectively, since the value 
of PEEK(21 1) is 1 if SHIFT alone is pressed, 2 if C= only is being 
pressed, and 4 if just CONTROL is pressed. A value of 3 is returned if 
SHIFT and C= are held simultaneously, 5 for SHIFT and CONTROL, 
and 7 for all three. Similarly, ALT and CAPS LOCK are represented by 
bits 4 and 5, respectively. The value of PEEK(21 1) is 8 when ALT is 
pressed and 16 when CAPS LOCK is on. 

These locations peeked alone or in combination give you control over 
input of any key on the 128's keyboard, even keys that aren't 
recognized by the GET or GETKEY commands. 

The 128 is not to be underestimated. There is much more to it than at 
first appears. Happy scanning! 
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Machine Language: 

Maxims for the Commodore 128 



Jim Butterf ield 

Toronto 



. . .the Commodore 128 doesn Sf call for a new game. . . 

. . . but there are some new things you 7/ need to know. . . 



The 8500 processor in the Commodore 128 follows the same rules 
and uses the same instructions as previous Commodore microproces- 
sors - the 6502, 6510, 7501 , 6509, etc. There are no new instructions; 
there's only a new arrangement of pins on the chip (and a new speed 
capability which can be invoked). 

If you know your way around machine language on other Commo- 
dore machines, you'll be at home. Same instruction set, same Kernal, 
similar architecture. But there are some new things you'll need to 
know. 

Here's a set of rules which will keep you out of trouble when you try 
your hand at programming the Commodore 128 in its CI 28 mode. All 
these rules may be broken - when you're smart enough and know 
your way around. But they will keep you out of trouble when you're 
just feeling your way around. 

1. Use only BANK 15. In fact, you can get along without using the 
BANK command at all, since bank 15 will be selected if you 
haven't changed it. 

2. Keep program and data below address $4000. Below this point, 
there isn't much conflict between banks. 

3. If you want to put coding into the cassette buffer, remember it 
starts at S0B00. Nobody except the cassette uses that page, so 
you can use the area from $0B00 to $0BFF without worry. 

4. Don't try to POKE the screen - the 80 column screen, in 
particular, is not mapped into main memory. Use the Kernal's 
CHROUT - $FFD2 - in the conventional way. 

5. The built-in machine language monitor is convenient. It's 
similar to Supermon. Call it in from Basic with MONITOR, not 
with some kind of SYS command. You don't need to give a 
five-character address in most cases when you want to do 
things such as examine memory, change memory, disassem- 
ble, and so on. 

6. You'll find the I/O chips at the same addresses as on the 
Commodore 64, used for 40-column screen, sound, I/O, etc. 
Feel free to use them in the traditional way, but stay away from 
(formerly) unused addresses; they may be live and may do 
unpleasant things to the system. 

7. If you need space in zero page for indirect address pointers, use 
$FA to $FF (decimal 250-255). 

8. Remember that Basic programs will start at address $ 1 CO 1 ; this 
may influence where you want to put your program. Remem- 
ber that Start-of-Variables no longer tells you where your 
Basic program ends (variables are stored in a different memory 
bank). Avoid the GRAPHIC command in Basic unless you 
know what you're doing; it will reorganize memory and move 
things around. 



Remember: you may break any and all of the above rules when you're 
ready. When you start, using the rules will help you get working 
programs going. 

Simple Example 

Let's write an idiotically simple program to print the alphabet on the 
screen. Go into CI 28 mode and type MONITOR. Enter the following 
(the lines will change as you press RETURN, but that shouldn't 
confuse you): 

A 0B00 LDX #$41 

A 0B02 TXA 

A 0B03 JSR $FFD2 

A 0B06 INX 

A 0B07 CPX #$5B 

A 0B09 BNE0B02 

A 0B0B LDA#+13 

A 0B0D JMPFFD2 

A 0B10 (press RETURN) 

Disassemble to check (with D 0B00 0B0F). Now ask what the decimal 
equivalent of $0B00 is by typing $0B00. You'll see a value of +2816. 
Return to Basic with command X. 

Ready? Now command SYS 2816 and see the alphabet print. 

By the way, exactly the same code will run in all other Commodore 
machines ... so the Commodore 128 doesn't call for a new game. 

Now. . . when you've learned a little confidence, start experimenting 
on how to break the above rules. 



SUPERMON + 64 

A new version of the Machine Language Monitor program Super- 
mon has now been released; it's called SUPERMON + . There are 
versions available for Commodore 64 and for VIC-20. 

The new Supermon is designed to closely match the commands 
of the built-in monitor of the Commodore 128. Users who go 
from one machine to another (or from C128 side to C64 side 
within the Commodore 128 computer) might be otherwise con- 
fused in trying to remember which commands and which formats 
need to be used with which monitor. 

Some of the useful new features of Supermon + are: ability to 
enter decimal or binary numbers anywhere within a command; 
memory display including ASCII equivalents; number base con- 
version; and a built-in "wedge" command. On this last feature, 
command "@" will yield disk status, and command "@,$0" (note 
the comma) will call up a directory listing. 

Supermon + , like Supermon, is public domain and can be ob- 
tained from a variety of sources including TPUG. 
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COMMODORE 128 Memory Maps: Important Locations 

Jim Butterfield, Toronto, Ontario 
(Abridged: August 15/85) 

These maps apply to the machine when used in 128K mode. In 64 mode, the machine's map is identical to that of the Commodore 64. 

There are 28 pages of overhead before the start of Basic. This brief list shows some of the more important locations. 

Architecture: "Bank numbers" as used in Basic BANK and the MLM addressing scheme are misleading; in fact, they are more correctly " 
configuration numbers" . Bank shows RAM level 0, which contains work areas and the user's Basic program. Bank 1 also shows RAM, this 
time (for addresses above hexadecimal 0400) level 1 which contains variables, arrays, and strings. Other " banks " are really configurations, 
with various types of ROM or I/O overlaying RAM. Thus, bank 15 (the most popular) is ROM and I/O covering RAM bank 0. Bank 14, however, 
is ROM and the character generator overlaying RAM bank 0. Architecture is set so that addresses below $0400 reference bank only. Other 
bank switching (more complex than the simplified 16-bank concept) is accomplished via storing a mask to address $FF00, or calling up pre- 
stored masks by writing to SFF01-FF04. 



AU Banks 






0300 -0311 


768-785 


BASIC links 


Hex 


Decimal 


Description 


0312 -0313 


786-787 


Unused 


0000 ■ 


-0001 


0-1 


I/O port, similar to C64 


0314 -0315 


788-789 


IRQ vector 


000F 




15 


Type: FF=string; 00 = numeric 


0316 -0317 


790-791 


Break interrupt vector 


0010 




16 


Type: 80 = integer; 00 = floating point 


0318 -0319 


792-793 


NMI interrupt vector 


0015 




21 


Current I/O prompt flag 


031 A -032D 


794-813 


Kernal vectors 


0016 


-0017 


22-23 


Integer value 


032E - 033D 


814-829 


Kernal links 


002D 


-002E 


45-46 


Pointer: start-of-BAS!C(for bank 0) 


033E - 0349 


830-841 


Keyboard matrix shift vectors 


002F 


-0030 


47-48 


Pointer: start-of-variables(bank 1) 


034A - 0353 


842-85 1 


Keyboard buffer 


0031 


-0032 


49-50 


Pointer: start-of- arrays 


0354 -035D 


852-861 


Tab stop bits 


0033 


-0034 


51-52 


Pointer: end-of-arrays 


035E -0361 


862-865 


Line wrap bits 


0035 


-0036 


53-54 


Pointer: string-storage {moving down) 


0362 -036B 


866-875 


Logical file table 


0039 


-003A 


57-58 


Pointer: limit-of-memory(bank 1) 


036C - 0375 


876-885 


Device number table 


003B 


-003C 


59-60 


Current BASIC line number 


0376 -037F 


886-895 


Secondary address table 


003D 


-003E 


61-62 


Textpointer: BASIC work point 


0380 - 039E 


896-926 


CHRGET subroutine 


0041 


-0042 


65-66 


Current DATA line number 


0386 


902 


CHRGOT entry 


0043 


-0044 


67-68 


Current DATA address 


039F -03DI 


927-938 


Subroutines to fetch from RAM banks 


0047 


-0048 


71-72 


Current variable name 


03DF 


991 


Accum'I: Overflow 


0049 


-004A 


73-74 


Current variable address 


FF00 


65280 


MMU configuration register 


0063 




99 


Accum'l: exponent 


FF01 -FF04 


65281-65284 


MMU load config registers 


0064 


-0067 


100-103 


Accum'l: mantissa 


BankO: 






0068 




104 


Accum'l: sign 


0400 -07E7 


1024-2023 


40-column screen memory 


006A 


-006F 


106-111 


Accum*2: exponent, and so on 


07F8 -07FF 


2040-2047 


Sprite identity area (text) 


0070 




112 


Sign comparison, Acc'l versus *2 


0800 - 09FF 


2048-2559 


BASIC pseudo-stack 


0071 




113 


Accum'l lo-order (rounding) 


0A00 -OA01 


2560-2561 


Vector: Basic restart 


007D 


-007E 


125-126 


BASIC pseudo-stack pointer 


OA05 - 0A06 


2565-2566 


Bottom of memory pointer 


0090 




144 


Status word ST 


0A07 - 0A08 


2562-2563 


Top of memory pointer 


0091 




145 


Keyswitch IA: STOP and RVS flags 


0A18 


2584 


RS-232 receive pointer 


0098 




152 


How many open files 


0A19 


2585 


RS-232 input pointer 


0099 




153 


Input device, normally 


0A1A 


2586 


RS-232 transmit pointer 


009A 




154 


Output CMD device, normally 3 


0A1B 


2587 


RS-232 send pointer 


009D 




157 


I/O messages: 192 - all, 64 = errors, = nil 


0A20 


2592 


Keyboard buffer size 


00A0 


-00A2 


160-162 


Jiffy Clock HML 


0A22 


2594 


Key repeat: 128 = all, 64 = none 


00AE 


-00AF 


174-175 


Tape end adds/End ol program 


0B00 - 0BBF 


2816-3007 


Cassette buffer 


00B7 




183 


Number of characters in file name 


0C00 - 0DFF 


3072-3583 


RS-232 input, output buffers 


00B8 




184 


Current logical file 


OEOO - 0FFF 


3584-4095 


System sprites (56-63) 


00B9 




185 


Current secondary address 


1000 - 10FF 


4096-4351 


Programmed key lengths and definitions 


00BA 




186 


Current device 


117A -117B 


4474-4475 


Float-fixed vector 


OOBB 


-00BC 


187-188 


Pointer to file name 


117C -117D 


4476-4477 


Fixed -float vector 


ooco 




192 


Tape motor interlock 


11E9 -11EA 


4585-4586 


Light pen values, X and Y 


00C8 


-0OCB 


200-203 


RS-232 input/output buffer addresses 


1200 -1201 


4608-4609 


Previous Basic line number 


oocc 


-00CD 


204-205 


Keyboard decode pointer (bank 15) 


1202 -1203 


4610-4611 


Pointer: Basic statement for CONT 


00DO 




208 


Number of characters in keyboard buffer 


1204 -1207 


4612-4615 


PU characters (,.$) 


00D1 




209 


Number of programmed chars waiting 


1208 


4616 


Error type ER 


0OD3 




211 


Key shift flag: = no shift 


1209 -120A 


4617-4618 


Error line number EL 


00D5 




213 


Last key code: 88 if no key 


1210 -1211 


4624-4625 


End of Basic (Bank 0) 


0OD6 




214 


Input from screen/from keyboard 


1212 -1213 


4626-4627 


Basic program limit [FFO0] 


00D7 




215 


40/80 columns: = 40 columns 


1218 -121A 


4632-4634 


USR program jump 


0OD9 




217 


Character base: = ROM. 4 = RAM 


121B -121F 


4635-4639 


RND seed value 


0OE0 


-00E1 


224-225 


Pointer to screen line/cursor 


2000 - 3FFF 


8192-16383 


Screen memory (hi-res) 


0OE2 


-00E3 


226-227 


Color line pointer 


4000 - FBFF 


16384-64511 


BASIC RAM memory (hi-res) 


00E4 


-00E7 


228-231 


Screen margins: bottom, top, left, right 


Bankl: 






0OE8 


-00E9 


232-233 


Input cursor log (row, column) 


0400 -FBFF 


1024-64511 


Basic variables, arrays, strings 


00EB 




235 


Position of cursor on screen line 


Bank 14: Same as Bank 15. be 


low, except: 


00EC 




236 


Row where cursor lives 


D000 - DFFF 


53248-57343 


Character generator ROM 


00FA 


-00FF 


250-255 


UNUSED 


Bank 15: 






0100 


-01FF 


256-511 


Processor stack area 


4000 -CFFF 


16384-53247 


ROM: BASIC 


0100 


-013E 


256-318 


Tape error log 


D000 - D030 


53248-53296 


40-col video chip 8564 


0100 


-0124 


256-292 


DOS work area 


D400-D41C 


54272-54300 


SID sound chip 6581 


0125 


-0138 


293-312 


PRINTUSING work area 


D500 - D50A 


54528-54538 


MMU 8722 memory setup registers 


0200 


-02A0 


512-672 


BASIC input buffer 


D600 -D601 


54784-54785 


80-column CRT contr 8563 


02A2 


-02AE 


674-686 


Bank peek subroutine 


D800 - D8E7 


55296-56295 


Color nybbles 


02AF 


-02BD 


687-701 


Bank poke subroutine 


DC00 - DC0F 


56320-56336 


CIA 1 (IRQ) 6526 


02BE 


-02CC 


702-716 


Bank compare subroutine 


DD00 - DD0F 


56576-56591 


CIA 2 (NMI) 6526 


02CD 


-02E2 


717-738 


JSR to another bank 


DFOO - DF0A 


57088-57098 


DMA controller 


02E3 


-02FB 


739-763 


JMP to another bank 


EOOO - FEFF 


57344-65279 


ROM: Kernal 


02 FC 


-02FD 


764-765 


Function execute hook 


FF05 - FFFF 


65285-65535 


ROM: Transfer, Jump Table 
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Richard Evers. Editor 
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The idea started slow, but rapidly picked up speed. 



Throughout the ages, man has always strived for new and 
exiting ways in which to amuse himself. Man is the master 
amuser. One way in which amusement was found, and still is 
today, is with music. In the beginning, there is a hint that the 
first musical instruments were rocks, producing a somewhat 
pleasing sound when smashed together in whatever unison 
they could muster. Soon, wood was found to possess the 
enthralling capacity to produce various sounds when struck. 
As time passed, man developed the art of cutting and forming 
pieces of wood to produce other truly unique sounds. From this 
simple beginning, we now have every instrument from the 
bongo drum to the grand piano. Over thousands of years of 
patient evolution, man has developed the most beautiful art of 
all - music. 

This unique beginning is a primer to enable you to gain easy 
entrance into todays world of digital music synthesis, a world 
far removed from what music has been in past. Although the 
music synthesizer is capable of cloning the sounds of all man 
made instruments, it also has the ability to allow or disallow the 
limitations imposed on the instrument by mans capabilities. 
With a statement sure to be written off as sheer personal 
judgement, I will state that the finest of todays music synthesiz- 
ers are capable of mimicking the sounds of man made instru- 
ments to such an extent that the synthetic counterpart will be 
preferred. But, as with all new concepts, many people will 
strive to retain the older, more familiar yet less refined methods 
of past. 

Today, in what is known as the age of the microprocessor, the 
true "State Of The Art" (what does that mean?) phase of our 
existence, analog systems still persist in great numbers. Al- 
though the digital movement has taken all forms of music 
reproduction by storm, ie. the compact disk, digital recorded 
record albums and, of course, music sythesis, analog is still 
with us. Time will be the sole test of our loyalty to a friend long 
past its prime. Achieving results that were once thought impos- 
sible using analog logic now appear common place due the 



advent of todays digital high technology. But, justly enough, 
within a few years travel, our current high tech will also be 
considered obsolete. The sad fate of time. Obsolescence. 

To get on track, a few years ago, when digital synthesis was 
beginning to reach its apex, a very obvious road block material- 
ized. There were no standards to meet, no industry standard 
that would allow various components to be easily connected 
together for use. The manufacturers were producing terrific 
products, but the buyer was restricted to one name brand for 
add ons. A restricting situation. 

To solve this problem, a few key people in the music sythesis 
industry started thinking, talking, and attracting attention 
along this line. The idea started slow, but rapidly picked up 
speed. MIDI, The Musical Instrument Digital Interface, was the 
solution presented to combat this problem. 

The MIDI system is a series of guidelines that manufacturers 
should meet in order to ensure the compatibility of their 
products with others. As with all set guidelines, MIDI is not 
perfect and does actually impose limitations at times. Without 
coming down too hard at first, let me explain the guidelines. 

The system is based on the almost current 8 bit technology, 
mainly because the designers were trying to produce a system 
that would easily fit into the budget of most starving artists. 
They chose a universal cable connection of the 5 pin DIN plug, 
using only 3 of the 5 pins. Pin # 2 is ground, with pin #, s 4 and 5 
being used for a current loop. 

B The interface operates at 31.25 kilobaud (±1 %), asynchron- 
ous, with a start bit, 8 data bits (DO to D7), and a stop bit. This 
makes a total of 10 bits for a period of 320 microseconds per 
serial byte. 

The above paragraph was lifted directly from the MIDI 1.0 
Specifications, Document No. MIDi-1.0, Dated August 5, 1983. 
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With each MIDI equipped unit, you wi 
notice either two or three connectors for 
MIDI use. There is the MIDI In, MIDI Out, 
and possibly, MIDI Through (American 
spelling Thru). MIDI In is the connector 
for data coming into the unit from other 
MIDI equipped units on line. This can 
include drum and rhythm machines, ex- 
tra keyboards, electric guitar and drum 
interfaces, controllers and sequencers, or 
extra synthesizers. 

A total of 16 channels, numbered 1 
through 16, are allowed under MIDI but 
more than 16 instruments can be on line 
at any one time. By assigning duplicate 
channel numbers to units, or having 
some units respond to all messages (see 
Omni Mode), vast numbers of units can be 
serviced. One main limitation to this pro- 
vision is the extended line length re- 
quired, which produces added line loss 
and a greater time delay with transmitted 
and received data. By reading more than a 
few articles on this subject, one fact be- 
comes apparent. When using more than a 
couple of MIDI units on line, noticeable 
delays appear in what is deemed simulta- 
neous sound reproduction. But, I have 
recently read an outstanding interview 
with a person well qualified in the field. 
He stated that the time delay between 
units was not completely the fault of the 
MIDI implementation. In his opinion, the 
rate at which the units process the infor- 
mation provided leads to the noticeable 
time lag. Without greater experience in 
the subject, it is hard to take a side. 

MIDI Out is the data being transmitted 
from the MIDI equipped unit. MIDI 
Through is a copy of the information cur- 
rently being passed into the unit through 
MIDI In. This feature, if provided, gives 
the user the ability to slave units together. 
According to MIDI specs, the cable length 
between units cannot exceed 50 feet, us- 
ing shielded, twisted cable with Pin *2 
connected to the shielding at both ends. 

The transmitted data is quite easy to iden- 
tify. All transmitted information is 8 bits in 
length, with the Status bytes having the 
high bit set and data bytes having the high 
bit clear. As we will soon discuss, the 
Status byte has been provided to control 
the system. Within the Status class will be 
found all commands necessary to deter- 
mine what the system will do, when it will 



do it, and how it should be done. The Data bytes are really the workers of the system. 
Not only do they carry information such as the note value to be played, but they also 
labour under the rule of the Status bytes to ensure that all commands are under- 
stood. For the purpose of this article, the eight bit byte is arranged from bits 7 to 0, 
with bit 7 acting as the high bit. 

The charts below have been prepared to show all the possible byte values encoun- 
tered while working with the MIDI system. Complete explanations will follow. 



Table Of Notes Corresponding To Data Values 

Expressed In Hex 















Notes 












Octave C 


C # 


D 


D* 


E 


F 


F # 


G 


G* 


A 


A* 


B 


— 


$00 


$01 


$02 


$03 


$04 


$05 


$06 


$07 


$08 


$09 


$0A 


$0B 





$oc 


$0D 


$0E 


$0F 


$10 


$11 


$12 


$13 


$14 


$15 


$16 


$17 


1 


$18 


$19 


$1A 


$1B 


SIC 


$1D 


$1E 


$1F 


$20 


$21 


$22 


$23 


2 


$24 


$25 


$26 


$27 


$28 


$29 


$2A 


$2B 


$2C 


$2D 


$2E 


$2F 


3 


$30 


$31 


$32 


$33 


$34 


$35 


$36 


$37 


$38 


$39 


$3A 


$3B 


4 


$3C 


$3D 


$3E 


$3F 


$40 


$41 


$42 


$43 


$44 


$45 


$46 


$47 


5 


$48 


$49 


$4A 


$4B 


$4C 


$4D 


$4E 


$4F 


$50 


$51 


$52 


$53 


6 


$54 


$55 


$56 


$57 


$58 


$59 


$5A 


$5B 


$5C 


$5D 


$5E 


$5F 


7 


$60 


$61 


$62 


$63 


$64 


$65 


$66 


$67 


$68 


$69 


$6A 


$6B 


8 


$6C 


$6D 


$6E 


$6F 


$70 


$71 


$72 


$73 


$74 


$75 


$76 


$77 


9 


$78 


$79 


$7A 


$7B 


$7C 


$7D 


$7E 


$7F 











Status Bytes With Messages 

Bit Pattern Decimal Value Hex Value Data Bytes Status Byte Message 



000 xxxx 

001 xxxx 

010 xxxx 

01 1 xxxx 
011 xxxx 

00 xxxx 

01 xxxx 

10 xxxx 

1 1 0000 
1 1 0001 
11 0010 
110011 
11 0100 
110101 
11 0110 
110111 
11 1000 
11 1001 
11 1010 
11 1011 
11 1100 
11 1101 
11 1110 

ii mi 



128 to 143 
144 to 159 
160 to 175 

176 to 191 
176 to 191 

192 to 207 
208 to 223 

224 to 239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 



$80 to $8F 
$90 to $9F 
$A0 to $AF 

$B0 to $BF 
$B0 to $BF 
$C0 to $CF 
$D0 to $DF 

$E0 to $EF 
$F0 
$F1 
$F2 
$F3 
$F4 
$F5 
$F6 
$F7 
$F8 
$F9 
$FA 
$FB 
$FC 
$FD 
$FE 
$FF 



2 
2 
2 

2 

2 

1 
1 

2 
variable 

2 

1 



















Note Off 

Note On 

Polyphonic Key Pressure 

After Touch 

Control Change 

Select Channel Mode 

Program Change 

Channel Pressure 

After Touch 

Pitch Wheel Change 

System Exclusive 

Unimplemented 

Song Position Pointer 

Song Select 

Unimplemented 

Unimplemented 

Tune Request 

End Of Exclusive 

Timing Clock 

Unimplemented 

Start 

Continue 

Stop 

Unimplemented 

Active Sensing 

System Reset 
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After that unrelenting barrage of MIDI information, I feel that it 
is only fitting to supply you with a bit more of a detailed 
description. To begin, the frequency data bytes, hex values $00 
to $7F, are obviously the note values as expressed through 
almost 10 complete octaves. This is one drawback of the 
system. 7 bits of resolution is not sufficient to allow graduations 
in smaller increments than semitones. One recent speculation 
made regarding this point stated that future revisions of the 
system specifications should allow note increments in gradua- 
tions of cents, 1/100's of a semitone. A possible but difficult to 
implement idea. 

Status Messages, in contrast to the note values, require more 
than a little explanation before becoming coherent to any 
degree. Therefore, there are two different Status messages that 
can be encountered. The Channel Message and the System 
Message. 



if the information is desired. Real-Time messages are com- 
prised of the Timing Clock, Start, Continue, Stop, Active Sens- 
ing, plus System Reset. Explanations will follow. 

There is only one Exclusive Message, of which carries one 
Status byte, plus any length of data bytes following. It is 
terminated by either the Common message End Of Exclusive 
(EOX), or any other Status byte. An Exclusive Message is one 
that has been incorporated to identify the manufacturer of each 
piece of equipment, plus allow the manufacturer to transmit 
whatever message they please. A form of personalized service, 
finally. 



Status Byte Explanations 

Message: Note Off 
Pattern: lOOOxxxx 



The Channel Message 

A Channel message is one that states a message and a specific 
unit number to which the message is addressed. The lower 4 
bits, bits 0-3, are used for this identification. In the charts 
shown above, plus the descriptions to follow, this has been 
signified by the xxxx in place of the lower nibble in each 
appropriate bit pattern. This 4 bit channel designation also 
explains the limitation of this system to 16 channels (decimal 
range 0-15). 

There are two types of channel messages; Voice and Mode. 
Voice messages control each separate units voices, which are 
sent over the voice channels. The Mode message defines the 
instruments response to the Voice messages, sent over the 
instruments basic channel. The Mode message can control 
such things as Local Control On and Off, All Notes Off, Omni 
Mode On or Off, Mono Mode On/Poly Mode Off, or Poly Mode 
On/Mono Mode Off. See message Select Channel Mode for 
more information. 



The System Message 

System messages are ones that do not pertain to any one 
specific channel. Being the elite of the system entitles them to 
speak and except all to listen, immediately. Within the realm of 
the System message falls the Common, Real-Time, and Exclu- 
sive messages. 

Common messages are directed to all units, regardless of 
channel number. The Common messages are comprised of 
Song Position Pointer, Song Select, Tune Request, and End Of 
Exclusive. Each Common message consists of a single byte, of 
which an in depth explanation will follow promptly. 

Real-Time messages are also intended to be heard by all units 
in the system, at any time, even during the transmission of 
other data by a Status byte. A Real-Time message is one in 
which can be tested for and ignored by the units, or acted upon 



The Note Off Message, used in conjunction with the Note On 
message, determine when each note will start and stop for the 
channel affected. Following this byte are always two data bytes. 
The first byte determines which note within a specific octave is 
to be affected, as can be demonstrated in the note chart above. 
The second byte is the Note Off Velocity. This value is used in 
synthesizers capable of ADSR (attack, decay, sustain, release), 
to set the rate of release from the sustained level. In synthesiz- 
ers not so enabled, the release is immediate. 

Message: Note On 
Pattern: 1001 xxxx 

As specified above, the Note On command is used to determine 
which note is stuck on a specified channel. The Note On 
Velocity, the second data byte, has a unique use this time. It 
determines the loudness setting of the note value struck. In 
units capable of ADSR, this level of loudness will be attained 
within a user predetermined time limit. If the unit is incapable 
of ADSR, the level will be reached immediately. The maximum 
loudness setting, considering we are working with the lower 7 
of 8 bits, is a decimal value of 127. A value of would be the 
same as turning the Note Off. According to specs, a value of 1 is 
equivalent to "triple pianissimo" , very quite. A value of 127 
(maximum), is "triple forte", very loud. The middle of the 
scale is 64, which is somewhere between " mezzo-piano " and 
"mezzo-forte" - middle scale. If the unit is incapable of 
various velocity settings, a value of 64 is used and transmitted. 

Message: Polyphonic Key Pressure After Touch 

Pattern: 1010 xxxx 

Polyphonic Key Pressure After Touch is really just what is 
implied. The new value of key pressure attained after touching 
it. If the value has been set before to reflect the key pressure 
exerted, and the user strikes the key once again, this new 
pressure must be reflected. This status byte has two data bytes 
following. The first byte is the note stuck, with the second value 
byte representing the pressure. The values of pressure range 
from 0, no pressure at all, to 1 27, bashed through the keyboard. 
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Message:Control Change 

Pattern: 1011 xxxx 

Control Change is a status byte that is transmitted whenever a 
controller mechanism is adjusted. Controller mechanisms in 
this context refer to foot pedals, knobs (pots), modulation 
wheels, sliders, and switches. Two data bytes are used after the 
status message to reflect this change. The first byte indicates 
which controller was affected, while the second byte deter- 
mines the new value attained. There are four ranges allowed 
for various controller mechanism used, as shown below. 






Value Range 
$00 to $3F 

$40 to $5F 
$60 to $7A 
$7B to $7F 



Controller Type 

Continuous (ie. Foot Pedals, Knobs, 

Modulation Wheels, Sliders) 

Switches 

Presently Undefined 

Channel Mode Messages 

(see Select Channel Mode following) 



The first range, Continuous, often requires a more subtle range 
of graduations in comparison to say a switch. Either a switch is 
off or on, or greater than 0. Continuous devices such as a 
slider can graduate across the scale in as large or small 
increments as desired, therefore a very subtle range is re- 
quired. For this reason, the Control Change message allows for 
three data bytes if necessary. As stated before, the first data byte 
determines the controller affected, with the second data byte 
determining the value to set. This acts as the High Byte, or 
increment of 256 Lower Bytes. By now you know that the third 
byte is the Low Byte, thereby allowing a range of 14 bits, or 
16,384 graduations. The Low Byte is not mandatory, therefore 
it can be left off if not required. 



The term Poly refers to Polyphonic sound reproduction, which 
is the ability for the unit to allow more than one note to be 
played simultaneously. Mono refers to Monophonic sound 
reproduction, which is reproduction of sound that only allows 
one note to be played during any one time period. 

Omni is a term that is used to describe the ability for a unit to 
respond to all system messages, or only ones addressed to it's 
basic channel. When Omni is Off, the unit will only listen for 
messages addressed to itself. When Omni is On, it will listen 
and act upon every message coming over the bus. 

Local Control is the ability for a unit to act through, or bypass 
it's own circuitry for the generation of sound. With Local 
Control On, the synthesizer will act like it normally does. With 
Local Control Off, the keyboard will still produce MIDI data as it 
is played, but the synthesizer will not produce any sound to 
compliment the data. This feature was incorporated to allow 
keyboards to control instruments other than the synthesizer 
attached. 

Message: Program Change 

Pattern: 11 00 xxxx 

Program Change is used with synthesizers that have banks of 
memory set aside for various user chosen sounds. Often times 
these sounds are assigned by changing the bank or patch 
number currently in use. Program Change allows a reflection of 
a change in this bank number for the channel affected, with 
one data byte assigned for the bank number chosen. The bank 
number can have a value of to 1 27. 

Message:Channel Pressure After Touch 

Pattern: 1101 xxxx 



Message:Select Channel Mode 

Pattern: 1011 xxxx 

Select Channel Mode is a unique message that allows altera- 
tions to the way a MIDI unit will respond to, and transmit MIDI 
channel messages. Two data bytes are used to allow this 
transformation, with the first data byte having a limited range 
of $7A to $7F. This limitation is imposed due to the fact that two 
different messages share the same bit pattern (see Control 
Change above). The second data byte is used in conjunction 
with the first to achieve the result desired, as shown below. 



The Channel Pressure After Touch is an interesting feature that 
determines the average pressure values for the unit at any 
instant. With this average pressure determined, a desired 
variation of the overall timbre value or volume of the instru- 
ment can be calculated by determining the deviation from the 
average required. The single data byte allowed can have a 
value of 0, no pressure, to 1 27, as much pressure as possible all 
around. 

Message: Pitch Wheel Change 

Pattern: 11 10 xxxx 



Bytel 


Byte 2 


$7A 


$00 


$7A 


$7F 


$7B 


$00 


$7C 


$00 


$7D 


$00 


$7E 


$0x 



$7F $00 



Result 

Local Control Off 

Local Control On 

All Notes Off 

Omni Mode Off, All Notes Off 

Omni Mode On, All Notes Off 

Mono Mode On, Poly Mode Off, 

All Notes Off (x = number channels) 

Poly Mode On, Mono Mode Off, 

All Notes Off 



This message is one that allows a reflection of any change in 
the setting of the pitch wheel. As with Continuous Controller 
Mechanisms such as sliders, a fairly large scale is required to 
reflect variations in the pitch wheel setting. For this purpose, 
1 4 bits of resolution have been provided. One odd point to note 
about the MIDI system specs at this point. With the Control 
Change message, a resolution of 14 bits was available if re- 
quired. The data bytes were read High to Low. For a Pitch 
Wheel Change, 1 4 bits are also provided, but they are read Low 
to High. This poorly thought out variation could lead to confu- 
sion in writing code if taken for granted. So much for conven- 
tions. 
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Message:System Exclusive 
Pattern: 1111 0000 






Message: End Of System Exclusive (EOX) 

Pattern: 11110111 



A System Exclusive message is one that 1 find to be refreshing. 
It allows identification of the manufacturer, and also allows the 
same to get his two bits in. A System Exclusive message is 
comprised of the first data byte signifying the identification 
number assigned to the manufacturer, as per the IMA (Interna- 
tional MIDI Association In California), and as many bytes 
following as the manufacturer requires to tell his story. This 
message is terminated either by an End Of Exclusive Message 
(EOX - 1 1 1 1 01 1 1), or any other Status byte that happens by. 
Below can be found a partial list of manufacturers ID codes, as 
supplied by the IMA. 



Manufacturer 


ID 


Sequential Circuits Inc 


. $01 


Big Briar 


$02 


Octavew/Plateau 


$03 


Moog Music 


$04 


Passport Designs 


$05 


Lexicon 


$06 


Bon Tempi 


$20 


S.I.E.L 


$21 


Kawai 


$40 


Roland 


$41 


Korg 


$42 


Yamaha 


$43 



The EOX message is a single Status byte, no data bytes, that 
flags when a System Exclusive Message has been completed. 



Message:Timing Clock 
Pattern: 1111 1000 












The Timing Clock Message is one that can be used to synchro- 
nize all sequencers and/or rhythm machines on line. The 
clock transmits its message at a rate of 6 messages per beat. As 
stated earlier, this type of message will appear at a regular 
intervals, regardless of the current state of other Status mes- 
sages. 



Message: Start 
Pattern: 1111 1010 

As before, this Status message is intended for use with a 
synthesizer equipped with a sequencer or rhythm machine. 
This message will inform the sequencer/rhythm machine to 
begin playing a pre-arranged song or note sequence from the 
beginning. There is only one Status Byte, no data bytes, for this 
message. See the Song Select Message for a little more informa- 
tion regarding Start. 



Message: Song Position Pointer 

Pattern: 1111 0010 



Message: Continue 
Pattern: 1111 1011 



The Song Position Pointer is a 14 bit value that allows a record 
to be kept of the number of beats since the start of a song 
session. This has been incorporated for use with synthesizers 
equipped with a sequencer (digital recorder), or for a rhythm 
machine. With this feature enabled, a flag can be set to allow 
music to be played from a specific location within the song. The 
two data bytes are read Low to High. 



As before, the Continue message has been incorporated for use 
with synthesizers equipped with a sequencer or rhythm ma- 
chine. This message is used to restart the current song se- 
quence after receiving the next Timing Clock message. The 
sequence is then picked up from the next position in the Song 
Position Pointer. This message is flagged by the user pressing 
the Continue button on the sythesizer. As before, this message 
carries one Status byte and no data bytes. 



Message: Song Select 
Pattern: 1111 0011 

As with the Song Position Pointer, Song Select is also meant to 
be used with synthesizers equipped with a sequencer, or for a 
rhythm machine. Song Select uses one data byte to select 
which song or note sequence is to be played after a Start 
message has been received. 



Message:Stop 
Pattern: 1111 1100 

Again, the Stop message is for synthesizers equipped with a 
sequencer or rhythm machine. When received, this message 
tells the sequencer to stop playing its current sequence. This 
message carries one Status byte and no data bytes. 



Message:Tune Request 
Pattern: 11110110 



Message: Active Sensing 
Pattern: 1111 1110 



Tune Request is a throw back into the age of Analog synthesiz- This message is one that is transmitted by any MIDI instrument 
ers. This single Status byte, no data bytes, is used to request a on line, powered up, but not actively involved in anything, 
tuning of the Analog synthesizers oscillators. This message is transmitted once every 300 milliseconds if 



The Transactor 



32 



Volume 6, Issue 05 



there is no activity on the MIDI bus. One Status byte and no 
data bytes. 



Message: System Reset 
Pattern: 1111 1111 

The System Reset message performs exactly as you might 
expect. It tells all MIDI instruments on line to perform a power 
up sequence to return them to a freshly powered up state. 



Retrospect 

The MIDI system, as has been expressed throughout this 
article, is a series of well thought of specifications. Through 
each manufacturers implementation, musicians can use instru- 
ments of different origin and expect predictable results. This is 
the basic flaw in the industry today. MIDI on paper appears 
quite explicit in its goals. But soon after implementation, the 
manufacturers discovered many minute points not completely 
taken into consideration by MIDI Version 1.0. Today, it is this 
problem that confronts every musician who considers the step 
into the world of music synthesis. 

In partial explanation, manufacturers immediately found prob- 
lems implementing MIDI 1.0 following its release. Although 
each manufacturer tried their best to work the MIDI system 
within the boundaries of their machines, hindsight informed us 
of the inevitable. The manufacturers did not work together to 
make sure the systems were compatible. Each operated within 
their own collective vacuum, producing equipment meeting 
untested specifications, without considering the fact that MIDI 
1 .0 might be vague enough to allow multiple interpretations. 

When the first MIDI machines were released on the market, 
problems became apparent immediately. Although many of 
the machines were compatible, some subtle to extreme cases of 
incompatibility did exist. And, as with any manufacturer faced 
with high R&D costs, plus further misinterpretations, many of 
the problems went unresolved. Take for example the Yamaha 
DX7 music synthesizer. It's a great machine, yet- its MIDI 
implementation is not completely compatible with say a Ro- 
land or a Korg. In this relatively new field of digital music 
synthesis, it is not hard to find people who have personally 
become victims in this rush to compatibility. 

Although I may appear to hold conflicting opinions regarding 
the MIDI, this is not so. MIDI in general does have its fine 
points. But I think that it is time for the manufacturers to get 
together and try to work their problems out. The specifications 
do not have to be altered just yet, just clarified down to the 
finest detail. Following this, each manufacturer can regroup to 
produce low cost true MIDI updates for the machines currently 
out. The longer this move is neglected, the greater the chance 
of more permanent problems. So much for a bit of sage advice. 



In Summation 

In closing, I would like to reflect on possible extensions to the 
MIDI 1.0 specifications. Due to the fact that 16 and 32 bit chips 
have dropped in price, implementations using these chips 
could be considered. With these chips, high speed communica- 
tions, multi tasking, and unbelievable control over vast 
amounts of RAM and ROM could be taken advantage of. 
Further to this, we have had a chance to work with the MIDI 1 .0 
for quite a while now. This time of reflection has enabled 
musicians from all over to discover most of the weak points 
inherent in the system. With these points in mind, plus the 
technology available to us today, a true implementation could 
be performed, with one problem. The market has already been 
flooded with MIDI 1.0 equipped units. A revision at this stage 
would make everything else obsolete, as far as current thought 
allows. Due to this single fact, the MIDI specifications will not 
be allowed revision on a radical scale for some time to come. 
Although it may be hard to accept this twist of fate, the human 
side of this story requires consideration. Musical technology is 
slated to stagnate for the next few years, after which time will 
come an age of radical change. What our dreams are composed 
of today is the reality of tomorrow. 



Finally, I would like to thank a few people who have helped me 
understand MIDI more than I ever thought possible. They 
include Vera Barycky, who supplied me with vast amounts of 
hard to get information that otherwise would be inaccessible. 
My father, Ted Evers, for his continuous stream of information 
and knowledge, and my brother, John Evers, for all his related 
experience working within the field, from which I was able to 
extract some particularly critical information. 
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Sooner or later, there becomes an overwhelming desire among most 
computer enthusiasts to connect their machine to the outside world 
and control lights, motors, and other devices. The recent increase in 
articles devoted to this subject in virtually all computer publications is 
evidence of such a desire. On the other hand, many of these articles 
require at least some knowledge of electronic components, the ability 
to prepare printed circuit boards, and perhaps even a moderate 
knowledge of electronic theory, in addition, it takes a bit of bravery to 
connect the prescribed hardware to the computer, anticipating ruin- 
ing the system due to an error. 

There is a product that has been available for over two years that 
reduces some of the above problems. Originally called the VIC-REL, it 
is now called the REL 64 Relay Cartridge and is marketed by Handic 
Software, Inc. (400 Paterson Plank Rd.. Carlstadt, NJ 07072 - $39.95 
U.S.). The cartridge plugs into the user port and is compatible with any 
Commodore computer that has one. 

Details of the Cartridge 

As illustrated in Figure 1 , there are a series of terminal screws on the 
end of the cartridge to which wires can be attached. The first six pairs 
of terminals (nos. 1-12) are equivalent to the terminals on six simple 
switches. Thus, six separate output devices can be controlled. 



In addition, the cartridge is capable of detecting input from two 
separate sources. This is accomplished by sensing the presence or 
absence of 5 volts d. c. across terminal pairs 17-18 or 19-20. Though 
care must be taken to avoid short circuits, this voltage can be obtained 
from the power supply of the computer across terminals 14 and 15. 
Terminals 13 and 16 are unused. 

Programming for Output 

Only two memory locations need to be accessed to use the REL 64 
cartridge. Though the specific locations for the Commodore 64 will be 
given as examples, the equivalent locations for the VIC-20, Plus 4, 
and other models with a user port can be readily found in program- 
ming reference guides. 

The first of these locations is the data direction register (DDR) for the 
user port, 56579 decimal. When a bit at the user port is to be used for 
output, the operating system in the computer requires that the 
corresponding bit in the DDR be set high (on). Likewise, if a bit is to be 
used for input, the corresponding bit in the DDR is set low (off). The 
cartridge uses the first six bits to control the switch terminals, thus 
they are outputs from the computer. The remaining two bits are input. 
So, to configure the user port in a manner consistent with the 
cartridge, the number 63 is POKEd into the DDR, turning the first six 
bits on. 




Figure 1. The VIC-REL (REL 64) Cartridge with Ribbon Cable and Discarded Telephone Connector Attached. 
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Once the port has been properly configured, control of output is 
accomplished by setting the appropriate bit at the user port (data port 
B) high. On the C64, this is decimal 56577. For example, if a 1 is 
POKEd into this location, the first bit is turned on and there will be 
electrical continuity between terminal screws 1 and 2 of the cartridge. 
Thus, a light bulb or similar device with one side of the supply in 
series with these terminals (like a switch) would be turned on. 
Likewise, a 2 POKEd into 56577 would turn on the second bit and 
provide electrical continuity between terminals 3 and 4, and so forth. 

Programming for Input 

The last two bits (6 and 7) of the user port are assigned for input. If a 
voltage between 5 and 1 2 volts d. c. is applied across terminals 1 7 and 
18, then bit 6 is changed to a low state (off). If the same voltage is 
applied across terminals 19 and 20, then bit seven is set low. Note that 
this is opposite to what would normally be expected - the bit is off 
when voltage is applied. 

To read input, the respective bit must be exclusively PEEKed so that 
the changing status of the other bits does not interfere. This is done by 
ANDing the bit during the PEEK. For example, to read the status of bit 
6, the following program line would be used: 

10 J = PEEK (56577) AND 64 

If a zero is returned by the variable J, then the bit is off and 5 volts is 
present across terminals 17 and 18. If J returns a 64, then no voltage is 
present. Likewise, for bit 7, this line would be used: 

20 K = PEEK (56577) AND 1 28 

Variable K will return a zero if the bit is on and 128 if the bit is off. 

Controlling Heavy Loads 

The output capability of the 64 Relay Cartridge is designed for a 
maximum of 24 volts at 10 watts. Depending on the specifics of the 
intended application, this may be a serious limitation. There is, 
however, a relatively easy method to solve this problem by using a 
relay. 

A relay is an electromagnetic switch. When current flows in the coil of 
the relay, it draws a contact toward it, completing an electrical circuit. 
Since the contacts of the relay are completely isolated from the coil, 
virtually any load desired can be controlled. The only requirement is 
that the voltage and power necessary for the coil of the relay does not 
exceed the maximum limits of 24 volts at 10 watts. 

Radio Shack and other electronic component suppliers have a wide 
variety of relays that are suitable. The Radio Shack *275-2 1 8 relay, for 
example, has contacts that will handle a device rated at 10 amps, at 
125 volts. This means the relay can control a load of up to 1250 watts 
(Wattage = Voltage x Amperes). On the other hand, this particular 
relay has a coil designed to operate on 12 volts at .075 amps. (0.9 
watts) - well within the maximum limits of the cartridge. 



Regardless of how the supply is secured, it must have sufficient power 
to supply the number of relays to be used. If six relays of the type 
referenced above are used, thus utilizing the full capability of the REL 
64 Cartridge, the supply must deliver 450 milliamperes (6 times .075 
amps = .450 amps). 

A schematic for one relay is shown in Figure 2. As mentioned 

previously, up to six relays could be connected. The power supply 

connections would simply be extended to the additional relays and 

additional pairs of terminals (3&4, 5&6, etc.) on the cartridge would be 

connected. 

TO TERMINALS 1&2 
ON CARTRIDGE 

i i 

RELAY 
CONTACTS 



IN SERIES 
WITH LOAD 



RELAY 
COIL 




TO 12 VOLT D.C 
POWER SUPPLY 



Conclusion 



Figure 2: Schematic of connections 
for a relay to control heavy loads 



The REL 64 cartridge is an easy way for a computer enthusiast to get 
involved in controlling real world devices with minimal knowledge of 
electricity. Burglar alarm systems, weather stations, model railroads, 
and automatic door openers are but a few of the many possible 
applications. 

The cartridge is designed in such a way that the electrical connections 
are isolated from the computer. Though a gross wiring error could 
damage the cartridge, it cannot damage the computer. The only 
exception to this is the 5 volts that are available across terminals 14 
and 15. Though having this voltage available makes it easy to utilize 
the input functions of the cartridge, care must be taken since a short 
across these two terminals could damage the computer. 

Though the cartridge is fixed to control six outputs and sense two 
inputs, this should not be a major limiting factor, especially for the 
beginner. In addition, relays allow the development of circuits with 
virtually any current or voltage desired, reducing the limitation of 
rather low current and voltage maximums of the cartridge itself. 



The only problem in implementing relays is that a separate power 
supply for the relay coils must be used. Since the 12 volts necessary 
for the relay coils is quite common, a suitable supply might be found 
in a discarded H power pack " from a portable appliance, radio, etc. 
Such a supply might also be purchased from surplus electronic 
dealers. Of course, the power supply can be easily built with a 
minimum of knowledge. 



Several of the cartridges have been used in teaching college students 
the basic concepts of computer interfacing in the industrial Arts 
Program Area at Virginia Tech. Even students with limited experience 
with microcomputers have been able to construct interesting and 
challenging computer-controlled projects. What is more, they seem to 
leave the course with a clear understanding of bits and bytes, unlike 
that when traditional methods are used. 
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1541 RAM Expander 



Michael Mossman 
Quispamsis, NB 



Are you tired of running out of memory when writing programs for 
your 1541? How about a little extra room to move around in? 

That's the question that got me into this problem. I started digging into 
the schematic diagrams of the 1541 and discovered that it had an 
address decoder of IK steps. That's interesting, because the 3K ram 
expander for the Vic 20 is decoded in IK steps also. These 3K 
expanders can be bought at a reasonable price through stores that 
carry Commodore products. Now to hook it up! 

Installing The RAM 

Turn off the drive and remove all the plugs. Remove the four screws in 
the bottom cover. Carefully turn over the unit and remove the top 
cover. Take out the two screws that hold the perforated metal cover 
and pull up on the screw side to remove it. 






There it is all done. You now have 3K of ram added to your 1541 . 

RAMI $0800-$0BFF 
RAM2 $0C00-$0FFF 
RAM3 $1000-$13FF 

The nice thing about this added memory is that it will never be used 
by the operating system unless you tell it to. You also have a safe area 
to place a program when you start up your drive and it can be called at 
a later time. (Note-the V1C-121 1 Super Expander can also be used but 
the + 5 volts to the rom chip will have to be disconnected.) 

Some Applications 



Now we need to build a bracket to hold the expander. 1 formed mine 
out of Vi6 inch aluminum stock. Figure 1 shows the mechanical 
details. This bracket is fastened to the front of the 1541 chassis with 
two x /a inch *48 machine screws. The chassis of the 1541 is already 
drilled and tapped for this size screw. (Just a note here to 1 540 owners. 
This memory expansion can also be done to your disk drive but you 
will have to mount the expander externally. The reason is that you 
have the longer board and there is no room inside.) The 22/44 pin 
connector sits in the upper elbow of the bracket and is fastened with 
two 1 inch # 48 machine screws with nuts. Thats all for the hardware, 
now for the wiring. 

Remove the six plugs that attach to the main board and note from 
where they came. If necessary, mark each plug with a pen and 
masking tape. Remove the four screws on top that hold down the 
board. Next take out the two screws mounted in the side of chassis 
that hold down the heat sink. Now the board can be removed. 

Locate on the top side of the board the 6502 microprocessor and the 
7442 decoder. Turn the board over and locate the pins of these two 
chips. Figure 2 shows these two chips as seen from the bottom of the 
board. Attach 27 wires to the pins that are named. Each wire is 1 .5 feet 
long. Take your time and make sure that you don't cause any shorts. I 
used ribbon cable from Radio Shack but any fine insulated wire will 
do. Stranded wire is best because it is less susceptible to breakage. The 
pins marked n/u are not used for the ram expander but could be used 
in normal circuit operation. The wires come out from underneath the 
board on the same side as the group of five plugs. 1 say this because it 
helps to angle the wires properly when you solder them to the pins. 
Now bring the wires out the correct side and sit the board back in 
place. 

Connect the wires name for name from the board to the 22/44 pin 
connector (Figure 3). Shorten wires to the appropriate length. Connect 
all pins on the connector marked "GND" together. Now it should be 
all hooked up. Take the time to check the wiring for shorts and 
routing. Double check it. Remember that it is your disk drive! 
Reassemble the drive in reverse order from when taken apart. The 
perforated metal cover will not go back on as it is. It can either be left 
off or the front flap can be removed. Remember to insert the ram 
expander into the connector. 



1 have included two programs to use this extra area. The first program 
is a little thing that creates an extra sector header on any track. You 
can use this as security for a disk. The next program creates three 
extra tracks on a disk. This creates a type of security or a safe area to 
hide things on a disk. With a few changes this program can be used to 
reformat any or all tracks. Each program has a basic part (runs in the 
VIC-20 or C64) and a machine language part (runs in the 1541). 

I used PAL to assemble the programs to disk (sorry VIC users) and 
Chris Johnsen's program (See "DOS File Executor" in The Transactor, 
Volume 6 Issue 1) to create an "&:execute" file of the M.L. programs. If 
you have the DOS Exec filer program, this method is highly recom- 
mended, since the drive will be able to automatically load and run the 
machine language programs. Alternatively, The M.L. programs can be 
converted into data statements and "M-W" can be used to poke them 
into 1541 memory. I had to make a couple of changes to Chris's 
program to handle the extra memory but his routine is excellent and 
should be on everyone's utility disk. The changes I made to Chris's 
program are given in Listing 4. 

With the extra RAM at your disposal, the 1541 becomes much more 
flexible to an enterprising programmer. How about a disk that can 
read and write to 4040 disks? What about a completely hidden 
directory? Enough of that, now for the program listings. 



o +z 
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Figure 2: Showing UNDERSIDE of 
1541 Main Board (partial view) 



Listing 1 



BASIC program which uses the program in 1541 RAM (Listing 2) to create 
an extra header block on any track. Lines 30-50 load the program into 
drive memory using the " DOS Executor" feature. Delete these lines if 
using the loader in Listing 2 to put the program into drive memory. 



AD 

DG 

MN 
CL 
PP 

IM 

KG 
IB 
DB 



10 rem*******this program creates an extra 
header block on any track*********** 

20 rem*******it does not create a data 
block for the extra header block******* 

30open15,8,15 

40 print#15, "&:extra header" 

50 forx = 0to4000:next:close1 5 

60 print " please insert disk to have extra sector 
header block added and press ' ; 

70 print" return. " 

80geta$:ifa$= ""then 80 

90 if a$Ochr$(13) then 80 



IA 
BM 
CK 
DE 
BN 
JJ 
DC 
IG 
HL 
JP 
IL 

Fl 

BP 

CL 

JK 

HL 

CM 

CD 

OL 
ON 
JE 

MN 
LH 

AP 
CO 

EA 
HM 
NC 
OM 
NJ 
NO 
CH 
DJ 
PI 



100 print do you want the disk formatted;yes or no" 

110geta$:ifa$= ""then 110 

120a$ = left$(a$,1) 

1 30 if a$<> " y " and a$<> * n " then 1 00 

1 40 if a$ = "n" then 190 

1 50 input " please print disk name " ;a$ 

1 60 input " please print two digit i.d. code " ;b$ 

170open15,8,15 

1 80 print#1 5, " n: " ;a$; " , " ;b$:close1 5 

190open15 t 8,15:print#15,"i":gosub400:close15 

200 input " what track do you want the extra 

header block on,1 -35 " ;c 
210 ifc<1 or c>35 then 200 
220 if c>0 and c< 1 8 then d = 2 1 
230 ifc>1 7 and c<25 then d = 1 9 
240 ifc>24 and c<31 then d = 18 
250 ifc>30 and c<36 then d = 1 7 
260open15.8,15 
270 print#1 5, " m-w " chr$(254)chr$(1 9)chr$(02) 

chr$(c)chr$(d) 
280 gosub 400 
290e = d-1:count = 
300 print#15, "m-w'chr$(00)chr$(04)chr$(03)chr$(76) 

chr$(03)chr$(08) 
310 gosub 400 

320 print#15, "m-w"chr$(08)chr$(00)chr$(02) 

chr$(c)chr$(e) 
330 gosub 400 

340 print#1 5, " m-w " chr$(01 )chr$(00)chr$(01 )chr$(224) 
350 gosub 400 

360 if f$ = " 00 " then print " done.all ok " :close1 5:end 
370 if count = 1 then 390 
380 count = count + 1 :go to 300 
390 gosub 400:goto 420 
400input#15,f$,g$,h$j$ 
410iff$= "00 "then return 
420 print f$,g$ t h$,i$, " failed " 
430close15:end 
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Listing 2. 


HP 


100 count = 




EB 


1 1 rem ;put jmp $0803 in buffer #3($0600) 


The BASIC loader for the "header block" machine code. This 


LJ 


120 print#15, n m-w"chr$(00)chr$(06)chr$(03) 


program will put the program directly into the new drive RAM at 




chr$(76)chr$(03)chr$(08) 


$0800. 


KD 


130gosub260 




HE 


140 rem ;put track 35 and sector in $000c/d of 








IB 


the header table 
1 50 print#1 5, " m-w " chr$(1 2)chr$(00)chr$(02) 




IK 


10 rem* data loader for "header block" 




JH 


1 1 rem* this puts the program directly 




chr$(35)chr$(0) 




PL 


12 rem* into 1541 expansion ram at 0800 


IF 


160gosub260 




Bl 


13: 


EA 


1 70 rem ;put execute code in $0003 




HK 


20 for i = 1 to 175:reada:c = c + a:next 


GE 


180 print#15, "m-w"chr$(03)chr$(00)chr$(01)chr$(224) 




MN 


30 if c<>20663 then print " !data error! " : end 


MH 


190 rem ;now read the disk controller error code 




BH 


40 hi m 8:lo ■ 0: rem 0800 in drive memory 


ON 


200 print#1 5, " m-r " chr$(03)chr$(00) 




AK 


50 restore: open 15,8,15 


DH 


210 get#1 5,er$:er = asc(er$) 




LA 


60 for i = 1 to 175: read a 


PO 


220 if er = 01 then print " done.all ok " :close1 5:end 




10 


70 print#15, "m-w: "chr$(lo)chr$(hi)chr$(1)chr$(a) 


IJ 


230 if count = 10 then 300 




LM 


80 lo = lo + 1 :if lo>255then lo = 0:hi = hi + 1 


EE 


240 count = count + 1 :go to 1 20 




CM 


90 next i: close 15 


BC 


250 gosub 260:goto 280 




IN 


100: 


BG 


260input#15,f$,g$ ) h$,i$ 




FL 


1000 data 76,160,234,173,254, 19,133, 24 


GO 


270 if f$ = " 00 " then return 




ID 


1010 data 173, 255, 19,133, 25,169, 0, 69 


NJ 


280 print f$;g$;h$;i$;" failed" 




OK 


1020data 22, 69, 23, 69, 24, 69, 25,133 


DA 


290close15:end 




BD 


1030 data 26, 32, 52,249,162, 0,181, 36 


CK 


300 if er <1 7 then print " controller error # " ;er 




EA 
FG 


1040 data 157, 0, 16,232,224, 10,208,246 
1050 data 173, 254, 19,133, 6,174,255, 19 


CO 


310 goto 250 








NA 


1060 data 202, 134, 7,169, 0,133, 61,133 






JF 


1070data 51,133, 48,169, 6,133, 50,169 


Listing 4 




OM 


1080 data 3,133, 49, 32, 16,245, 32, 86 






JK 


1090data245, 80,254,184,173, 1, 28,145 


The loader for " format38 " , which puts the new formatting routine 




AM 


11 00 data 48,200,208,245,160,186, 80,254 


into drive memory. 




LM 


1110data 184, 173, 1, 28,153, 0, 1,200 






HD 

MH 


1120 data 208, 244, 184, 80,254,184,173, 1 
11 30 data 28,201, 85,240,246,173, 12, 28 






ME 


1 rem* data loader for " format38 " 




IL 


1140data 41, 31, 9,192,141, 12, 28,169 


JH 


1 1 rem* this puts the program directly 




DF 


11 50 data 255, 141, 3, 28,169,255,141, 1 


PL 


12 rem* into 1541 expansion ram at 0800 




BO 


1160data 28,162, 5, 80,254,184,202,208 


Bl 


13: 




OF 


1 1 70 data 250, 1 62. 0, 80, 254, 1 84, 1 89, 


OK 


20 for i = 1 to752:reada:c = c + a:next 




01 


11 80 data 16,141, 1, 28,232,224, 10,208 


KO 


30 if c<>83435 then print " Idata error! " : end 




ON 


1 1 90 data 242, 1 62, 9, 80, 254, 1 84, 1 69, 85 


FC 


35 print " data ok, now loading to drive ram 




HK 


1200data141, 1, 28,202,208,245, 32, 


BH 


40 hi = 8:lo = 0: rem 0800 in drive memory 




BA 


1210 data 254, 169, 1, 76,105,249, 69 


AK 
CB 


50 restore: open 15,8,15 
60 for i = 1 to 752: read a 










IO 


70 print#1 5, " m-w: " chr$(lo)chr$(hi)chr$(1 )chr$(a) 


Listing 3. 


LM 


80 lo = lo + 1 :if lo>255then lo = 0:hi = hi + 1 




CM 


90 next i: close 15 


The BASIC code for the C64 which will format a disk with 38 tracks. It 


IN 


100: 


uses the program in Listing 4 which resides in the new drive RAM. 


AK 


1000data 76,160,234,165, 34,133, 81,169 


Lines 10-20 assume a " DOS Executor" file on disk; delete them if 


JC 


1010data 20,141, 32, 6,169, 64,141, 33 


using the loader in Listing 4. 


II 


1020 data 6,169, 15,141, 34, 6,169, 16 




GN 


1030data133, 67, 32,207, 10, 32,207, 10 








LI 
BM 


1040 data 230, 81,165, 81,201, 36,144,242 
1050data 32,163,253, 32,195,253,169, 85 




IM 


10open15,8,15 




HA 


20print#15,"&:format38" 


LL 


1060 data 141, 1, 28, 32,195,253, 32, 




CM 


30 print " please insert disk to have extra tracks " ; 


CC 


1070data254, 32, 86,245,169, 64, 13, 11 




CE 


40 print " and press return. " 


DH 


1080 data 24,141, 11, 24,169, 98,141, 6 




HP 


50geta$:if a$= ""then 50 


JH 


1090data 24,169, 0,141, 7, 24,141, 5 




CP 


60 if a$Ochr$(13) then 50 


ID 


11 00 data 24,160, 0,162, 0, 44, 0, 28 




JE 


70 input " please print disk name " ;a$ 


AK 


11 10 data 48,251, 44, 0, 28, 16,251,173 




DN 


80 input" please print two digit i.d. code" ;b$ 


CF 


11 20 data 4, 24, 44, 0, 28, 16, 17,173 




PA 


90 print#15, " n: " ;a$; " , " ;b$:gosub260 


CH 


1130 data 13, 24, 10, 16,245,232,208,239 
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NH 


1 1 40 data 200, 208, 236, 169, 2. 76,189, 10 


DC 


1750data162, 10,160, 0, 80,254,184,173 




PF 


1150 data 134, 113, 132. 114, 162, 0,160, 


OK 


1760 data 1, 28,209, 48,208, 14,200,202 




Dl 


1160 data 173, 4, 24, 44, 0, 28, 48, 17 


OG 


1770 data 208, 242, 24,165, 48,105, 10,133 




BK 


11 70 data 173, 13, 24, 10, 16,245,232,208 


LC 


1780 data 48, 76,126, 10,206, 35, 6,208 




AC 


1 1 80 data 239, 200, 208, 236, 1 69, 2, 76, 1 89 


LD 


1790 data 207, 169, 6, 76,189, 10, 32, 86 




LI 


1190 data 10, 56,138,229,113,170,133,112 


AP 


1 800 data 245, 1 60, 1 87, 80, 254, 1 84, 1 73, 1 




MM 


1200 data 152, 229, 114, 168, 133, 113, 16, 11 


KC 


1810 data 28,217, 0, 1,208,230,200,208 




GC 


1210data 73,255,168,138, 73,255,170,232 


FP 


1 820 data 242, 1 62, 252, 80, 254, 1 84, 1 73, 1 




CK 


1220 data 208, 1,200,152,208, 4,224, 4 


AE 


1830 data 28,217, 0, 5,208,214,200,202 




KM 


1230 data 144, 24, 6,112, 38,113, 24,165 


OJ 


1840 data 208, 241,206, 40, 6,208,174,165 




HO 


1240 data 112, 109, 33, 6,141, 33, 6,165 


Nl 


1850data 81,201, 38,176, 3, 76, 26, 8 




OF 


1250 data 11 3, 109, 34, 6,141, 34, 6, 76 


IK 


1860 data 169, 255, 133, 81,169, 0,133, 80 




JF 


1260data 40, 8,162, 0,160, 0,184,173 


OG 


1870 data 169, 1, 76,105,249,206, 32, 6 




DA 


1270 data 0, 28, 16, 14, 80,249,184,232 


BG 


1880 data 240, 3, 76, 40, 8,160,255.132 




LH 


1 280 data 208, 245, 200, 208, 242, 1 69, 3, 76 


NN 


1890data 81,200,132, 80, 76,105,249,174 




KA 


1290 data 189, 10,138, 10,141, 37, 6,152 


PF 


1900 data 0, 28,232,138, 41, 3,141,255 




LG 


1300data 42,141, 36, 6,169,191, 45, 11 


DM 


1910data 19,173, 0, 28, 41,252, 13,255 




FB 


1310data 24,141, 11, 24,169,102,141, 38 


DL 


1920data 19,141, 0, 28,160, 5,162,255 




CE 

NB 


1320 data 6,166, 67,160, 0,152, 24,109 
1330 data 38, 6, 144, 1 , 200, 200, 202, 208 


LL 


1930 data 202, 208, 253, 136,208, 250, 96, 32 








BG 


1340 data 245, 73,255, 56,105, 0, 24,109 






NJ 


1350 data 37, 6,176, 3,206, 36, 6,170 


Listing 5 




DH 


1360 data 152, 73,255, 56,105, 0, 24,109 


4 




JK 


1370data 36, 6, 16, 5,169, 4, 76,189 


Changes to make to the " DOS Executor " program (July 85 Transactor) 




LK 


1380 data 10,168,138,162, 0, 56,229, 67 


to allow it to work with the expansion RAM. 




II 


1390 data 176, 3,136, 48, 3,232,208,245 






HE 


1400data142, 38, 6,224, 4,176, 5,169 


change line 370 print " bam buffer-1 792 $0700 " 




NJ 


1410data 5, 76,189, 10, 24,101, 67,141 


add line 375 print " expansion ram-2048 $0800 " d$ 




GM 


1420 data 39, 6,169, 0,141, 40, 6,160 


change line 400 ifval(dm$)>7419thenprintd$d$" not higher then 




HJ 


1430data 0,166, 61,165, 57,153, 0, 3 


7419":printu$u$u$u$u$:goto380 




JA 


1440data200, 200, 173, 40, 6,153, 0, 3 


add line 461 ifcnt = Othencnt ■ 1 :goto470 




BK 


1 450 data 200, 1 65, 81 , 1 53, 0, 3, 200, 181 


add line 462 dm = dm + 250 




KP 


1460data 19,153, 0, 3,200,181, 18,153 


add line 463 hi = int(dm/256):lo = dm-hi*256 




FK 


1470 data 0, 3,200,169, 15,153, 0, 3 


add line 501 ifcnt = Othencnt = 1 :goto51 




NC 


1480 data 200, 153, 0, 3,200,169, 0, 89 


add line 502 dm ■ dm + 250 




EP 


1490 data 250, 2, 89,251, 2, 89,252, 2 


add line 503 hi = int(dm/256):lo = dm-hi*256 




HE 


1500 data 89,253, 2,153,249, 2,238, 40 






DE 

KC 


1510 data 6,173, 40, 6,197, 67,144,187 
1 520 data 1 52, 72, 232, 1 38, 1 57, 0, 5, 232 






HJ 


100 rem open1,8,1,"0:format38.obj 




JP 


1530 data 208, 250, 169, 3,133, 49, 32, 48 


EB 


110 rem save"@0:format38.pal\8 




FF 


1540 data 254, 104, 168, 136, 32, 229, 253, 32 


IP 


120 sys700 ;pal 64 assembler 




MD 


1550 data 245, 253, 169, 5,133, 49, 32,233 


ML 


130 blocks free. 




LE 


1560 data 245, 133, 58, 32,143,247,169, 


OJ 


140 this program lives inside the 1 541 




El 


1570data133, 50, 32, 14,254,169,255,141 


GK 


1 50 and will format with 38 tracks 




KC 


1580 data 1, 28,162, 5, 80,254,184,202 


CL 


160 it should be used with its basic 




DL 


1 590 data 208, 250, 1 62, 1 0, 1 64, 50, 80, 254 


KO 


1 70 counterpart in the c64 




NL 


1600 data 184, 185, 0, 3,141, 1, 28,200 


KC 


180; 




AM 


1610 data 202, 208, 243, 162, 9, 80,254,184 


GC 


190 .opt oo 




LI 


1620 data 169, 85,141, 1, 28,202,208,245 


GL 


200 * - $0800 




CO 


1630 data 169, 255, 162, 5, 80, 254, 184, 141 


IE 


210; 




BH 


1 640 data 1 , 28, 202, 208, 247, 1 62, 1 87, 80 


DL 


220 jmp $eaa0 ; 


;cold start of disk drive 




LA 


1650 data 254, 184, 189, 0, 1,141, 1, 28 


MJ 


230 Ida $22 ; 


;current track # 




CO 


1660 data 232, 208, 244, 160, 0, 80, 254, 184 


NE 


240 sta $51 


;track# for formating 




NL 


1670data177, 48,141, 1, 28,200,208,245 


PK 


250 Ida #$14 


;set to allow 20 errors 




GP 


1680 data 169, 85,174, 38, 6, 80,254,184 


IM 


260 sta $0620 




LJ 


1690data141, 1, 28,202,208,247,165, 50 


KG 


270 Ida #$40 ;set $0621/2 to 4000 as a 




LK 


1700data 24,105, 10,133, 50,206, 40, 6 


BN 


280 sta $0621 ; guess to the # of bytes 




KP 


1710 data 208, 147, 80,254,184, 80,254,184 




on half a track 




NL 


1720data 32, 0,254,169,200,141, 35, 6 


NJ 


290 Ida #$0f 




KP 


1730 data 169, 0,133, 48,169, 3,133, 49 


CP 


300 sta $0622 




AC 


1740data165, 67,141, 40, 6, 32, 86,245 


GM 


31 Ida #$1 ;set to allow 1 6 sectors 
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on these tracks 


GK 


910 now 


sec 




;caculatetime 




LA 


320 


sta 


$43 




ME 


920 


txa 








KL 


330 bigger 


jsr 


step ; 


;move head half a track 


PD 


930 


sbc 


$71 






FD 


340 


jsr 


step ; 


;and again 


HH 


940 


tax 








FB 


350 


inc 


$51 ; 


increase track # 


OH 


950 


sta 


$70 






JM 


360 


Ida 


$51 ; 


;if not on track 36 then 
move head 


HH 
KG 


960 
970 


tya 
sbc 


$72 






AP 


370 


cmp 


#$24 




DK 


980 


tay 








Dl 


380 


bcc 


bigger 




JK 


990 


sta 


$71 






MP 


390; 








KG 


1000 


bpl 


pos 


;is the difference 




FD 


400 start 


jsr 


$fda3 ; 


erase track 










postive 




KF 


410 


jsr 


$fdc3 ; 


;write sync area 


KJ 


1010 


eor 


#$ff 






KO 


420 


Ida 


#$55 




LM 


1020 


tay 








EJ 


430 


sta 


$1c01 




KL 


1030 


txa 








NO 


440 


jsr 


$fdc3 ; 


write non-sync area 


IL 


1040 


eor 


#$ff 






ME 


450 


jsr 


$fe00 ; 


kill write mode 


FO 


1050 


tax 








FC 


460 


jsr 


$f556 ; 


wait for sync 


AA 


1060 


inx 








ID 


470 


Ida 


#$40 ; 


set timer 


JG 


1070 


bne 


pos 






MM 


480 


ora 


$180b 




IB 


1080 


iny 








AM 


490 


sta 


$180b 




FF 


1 090 pos 


tya 








BD 


500 


Ida 


#$62 




BL 


1100 


bne 


tryagain 






IM 


510 


sta 


$1806 




BH 


1110 


cpx 


#4 


;is the difference 




DP 


520 


Ida 


#0 












greater then 4 




NN 


530 


sta 


$1807 




OJ 


1120 


bcc 


ok 






FO 


540 


sta 


$1805 




ND 


1130tryagain asl 


$70 






ED 


550 


Idy 


#0 ; 


set y and x as count 


KF 


1140 


rol 


$71 






HH 


560 


Idx 


#0 




EP 


1150 


clc 








JG 


570 sync 


bit 


$1c00 ; 


read sync 


CB 


1160 


Ida 


$70 






OM 


580 


bmi 


sync 




LA 


1170 


adc 


$0621 






MG 


590 nonsync bit 


$1c00 ; 


read non-sync 


BG 


1180 


sta 


$0621 






NJ 


600 


bpl 


nonsync 




DD 


1190 


Ida 


$71 






GF 


610 reset 


Ida 


$1804 ; 


reset flag 


KC 


1200 


adc 


$0622 






HH 


620 read 


bit 


$1c00 ; 


read non-sync 


Al 


1210 


sta 


$0622 






GP 


630 


bpl 


here 




JN 


1220 


jmp 


start 






KB 


640 


Ida 


$180d 




EE 


1230; 










GH 


650 


asl 


a 




AJ 


1240 ok 


Idx 


#0 


;set counter 




PL 


660 


bpl 


read 




NC 


1250 


Idy 


#0 






KH 


670 


inx 






OK 


1260 


civ 








HG 


680 


bne 


reset 




CM 


1 270 test 


Ida 


$1c00 


;test for sync 




CJ 


690 


iny 






HN 


1280 


bpl 


timer 






LH 


700 


bne 


reset 




DM 


1290 


bvc 


test 






FL 


710 


Ida 


#2 




GN 


1300 


civ 








KC 


720 


jmp 


error 




KP 


1310 


inx 








AF 


730; 








BN 


1320 


bne 


test 






EP 


740 here 


stx 


$71 ; 


store count 


CB 


1330 


iny 








MB 


750 


sty 


$72 




FO 


1340 


bne 


test 






LB 


760 


Idx 


#0 ; 


set count 


HD 


1350 


Ida 


#3 






NE 


770 


Idy 


#0 




KK 


1360 


jmp 


error 






Jl 


780 resetl 


Ida 


$1804 ; 


reset flag 


AN 


1370; 










CL 


790 read 1 


bit 


$1c00 ; 


read sync 


KJ 


1380 timer 


txa 




;store the count 




AK 


800 


bmi 


now 




KF 


1390 


asl 


a 






EM 


810 


Ida 


$180d 




BE 


1400 


sta 


$0625 






AC 


820 


asl 


a 




JD 


1410 


tya 








LM 


830 


bpl 


readl 




01 


1420 


rol 


a 






EC 


840 


inx 






OF 


1430 


sta 


$0624 






DH 


850 


bne 


resetl 




PI 


1440 


Ida 


#$bf 


;caculate the number of 




MD 


860 


iny 






CP 


1450 


and 


$180b 


; bytes on this track 




HI 


870 


bne 


resetl 




OD 


1460 


sta 


$180b 


;by the number of 




PF 


880 


Ida 


#2 












sectors 




EN 


890 


jmp 


error 




LA 


1470 


Ida 


#$66 






KP 


900; 








CJ 


1480 


sta 


$0626 
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LL 


1490 


Idx 


$43 


KA 


2090 


iny 








HC 


1500 


Idy 


#0 


EC 


2100 


Ida 


$13,x 


;id 




NJ 


1510 


tya 




EF 


2110 


sta 


$0300,y 






MO 


1520 cad 


clc 




IC 


2120 


iny 








IH 


1530 


adc 


$0626 


PD 


2130 


Ida 


$12,x 


;id 




DL 


1540 


bcc 


cac2 


CH 


2140 


sta 


$0300,y 






00 


1550 


iny 




GE 


2150 


iny 








PH 


1 560 cac2 


iny 


- 


CL 


2160 


Ida 


#$0f 


;off byte 




JN 


1570 


dex 




AJ 


2170 


sta 


$0300,y 






AA 


1580 


bne 


cad 


EG 


2180 


iny 








ON 


1590 


eor 


#$ff 


EK 


2190 


sta 


$0300,y 






BM 


1600 


sec 




IH 


2200 


iny 








HC 


1610 


adc 


#0 


PK 


2210 


Ida 


#0 


;caculate checksum 




KM 


1620 


clc 




OB 


2220 


eor 


$02fa,y 






LN 


1630 


adc 


$0625 


MC 


2230 


eor 


$02fb,y 






LF 


1640 


bcs 


cac3 


KD 


2240 


eor 


$02fc,y 






HP 


1650 


dec 


$0624 


IE 


2250 


eor 


$02fd,y 






PM 


1 660 cac3 


tax 




LK 


2260 


sta 


$02f9,y 


;store checksum 




ND 


1670 


tya 




CG 


2270 


inc 


$0628 


increase sector counter 




ID 


1680 


eor 


#$ff 


GH 


2280 


Ida 


$0628 






LB 


1690 


sec 




EM 


2290 


cmp 


$43 






Bl 


1700 


adc 


#0 


GH 


2300 


bcc 


header 1 






EC 


1710 


clc 




NL 


2310 


tya 








ED 


1720 


adc 


$0624 


Ml 


2320 


pha 








EM 


1730 


bpl 


cac4 


GP 


2330 


inx 








PL 


1740 


Ida 


#4 


IN 


2340 


txa 








AD 


1750 


jmp 


error 


NG 


2350 data 


sta 


$0500,x 


;set up dummy data 




GF 


1760; 














block in 




CE 


1 770 cac4 


tay 




OG 


2360 


inx 




; buffer #2 




IK 


1780 


txa 




HE 


2370 


bne 


data 






FE 


1790 


Idx 


#0 


ND 


2380 


Ida 


#3 






DB 


1 800 cac5 


sec 




JE 


2390 


sta 


$31 


;set buffer pointer 




PK 


1810 


sbc 


$43 


FO 


2400 


jsr 


$fe30 


;convert headers to 




LB 


1820 


bcs 


cac6 










gcr code 




BO 


1830 


dey 




CP 


2410 


pla 








JC 


1840 


bmi 


cac7 


DE 


2420 


tay 








BK 


1 850 cac6 


inx 




JD 


2430 


dey 








IC 


1860 


bne 


cac5 


CN 


2440 


jsr 


$fde5 


;jsr moveup 




AA 


1870cac7 


stx 


$0626 


CP 


2450 


jsr 


$fdf5 


;jsr movovr 




JL 


1880 


cpx 


#4 


BP 


2460 


Ida 


#5 


;set buffer pointer 




CI 


1890 


bcs 


headers 


JG 


2470 


sta 


$31 






BG 


1900 


Ida 


#5 


CE 


2480 


jsr 


$f5e9 


;jsr chkblk-to caculate 




AN 


1910 


jmp 


error 


OJ 


2490 


sta 


$3a 


;checksum for 




GP 


1920; 














data block 




MN 


1930 headers 


; clc 


;setupallofthe 


10 


2500 


jsr 


$f78f 


;jsr bingcr-to convert 




DC 


1940 


adc 


$43 ;headers for this track in 










data block to gcr 




FG 


1950 


sta 


$0627 ;buffer #0 


JL 


2510 


Ida 


#0 






DJ 


1960 


Ida 


#0 


OJ 


2520 


sta 


$32 






OH 


1970 


sta 


$0628 


IJ 


2530 


jsr 


$feOe 


;jsr clear-to clean track 




HA 


1980 


Idy 


#0 


AO 


2540 write 


Ida 


#$ff 


;now the track is to be 




AO 


1990 


Idx 


$3d 










written out 




PH 


2000 headen 


I Ida 


$39 ;header block id 


MN 


2550 


sta 


$1c01 












code ($07) 


KF 


2560 


Idx 


#5 


;write out 5 sync marks 




AP 


2010 


sta 


$0300, y 


PB 


2570 waitl 


bvc 


waitl 






PN 


2020 


iny 


;skip checksum 


GN 


2580 


civ 








OM 


2030 


iny 




FN 


2590 


dex 








NN 


2040 


Ida 


$0628 ;sector number 


OJ 


2600 


bne 


waitl 






IB 


2050 


sta 


$0300, y 


PI 


2610 


Idx 


#$0a 


; 1 bytes for 




MO 


2060 


iny 












each header 




OC 


2070 


Ida 


$51 ;track number 


IC 


2620 


Idy 


$32 


;set y to header pointer 




GD 


2080 


sta 


$0300,y 


CG 


2630 wait2 


bvc 


wait2 




!?>• IfQfMQClOf 




41 








VWimtw 6, ItiM OS | 





PK 


2640 


civ 




;write out header 


BJ 


3220 


Ida 


$43 


;num of sectors on 




CD 


2650 


Ida 


$0300,y 












this track 




KE 


2660 ' 


sta 


$1c01 




KG 


3230 


sta 


$0628 






OE 


2670 I 


iny 






Nl 


3240 cont 


jsr 


$f556 


;wait for sync 




PC 


2680 J 


dex 






FH 


3250 


Idx 


#$0a 






KP 


2690 1 


bne 


wait2 




HA 


3260 


Idy 


#0 






HE 


2700 [ 
2710waitfe 


Idx 


#9 


; header gap size 


LI 


3270 chkl 


bvc 


chkl 






JL 


bvc 


wait3 




CJ 


3280 


civ 








CG 


2720 


civ 






CI 


3290 


Ida 


$1c01 






PE 


2730 


Ida 


#$55 


; header gap 


CP 


3300 


cmp 


($30),y 


;check header 




KJ 


2740 


sta 


$1c01 




AE 


3310 


bne 


errorl 






FH 


2750 


dex 






IN 


3320 


iny 








CE 


2760 


bne 


wait3 




JL 


3330 


dex 








GO 


2770 


Ida 


#$ff 


;sync mark 


GA 


3340 


bne 


chkl 






AA 


2780 


Idx 


#5 


;sync size 


Ml 


3350 


clc 








AB 


2790 wait4 


bvc 


wait4 




CK 


3360 


Ida 


$30 






CL 


2800 


civ 






Dl 


3370 


adc 


#$0a 






AO 


2810 


sta 


$1c01 




EP 


3380 


sta 


$30 






LL 


2820 


dex 






FH 


3390 


jmp 


more 






Kl 


2830 


bne 


wait4 




OL 


3400; 








1* 


Dl 


2840 


Idx 


#$bb 


; overflow buffer - write 
data block 


HJ 
BO 


3410 error 1 
3420 


dec 

bne 


$0623 
try 






DF 


2850 wait5 


bvc 


wait5 




NF 


3430 


Ida 


#6 






00 


2860 


civ 






KM 


3440 


jmp 


error 






FA 


2870 


Ida 


$01 00,x 




AP 


3450; 










GC 


2880 


sta 


$1c01 




LM 


3460 more 


jsr 


$f556 


;wait for sync 




GC 


2890 


inx 






GL 


3470 


Idy 


#$bb 


;overflow buffer-we 




CN 


2900 


bne 


wait5 












are checking 




JK 


2910 


Idy 


#0 




BD 


3480 chk2 


bvc 


chk2 


;the data block 




AK 


2920 wait6 


bvc 


wait6 




EG 


3490 


civ 








ED 


2930 


civ 






EF 


3500 


Ida 


$1c01 






FB 


2940 


Ida 


($30),y 


; buffer #2 


NM 


3510 


cmp 


$0100,y 






MG 


2950 


sta 


$1c01 




CB 


3520 


bne 


errorl 






AH 


2960 


iny 






KK 


3530 


iny 








KB 


2970 


bne 


wait6 




CN 


3540 


bne 


chk2 






BJ 


2980 


Ida 


#$55 


;tail gap 


LO 


3550 


Idx 


#$fc 






BO 


2990 


Idx 


$0626 


;numberoftail 
gap bytes 


HL 

EL 


3560 chk3 
3570 


bvc 

civ 


chk3 






HP 


3000 wait7 


bvc 


wait7 




EK 


3580 


Ida 


$1c01 






El 


3010 


civ 






II 


3590 


cmp 


$0500,y 


;buffer#2data 




CL 


3020 


sta 


$1c01 




CG 


3600 


bne 


errorl 






Nl 


3030 


dex 






KP 


3610 


iny 








CG 


3040 


bne 


wait7 




LN 


3620 


dex 








CH 


3050 


Ida 


$32 




AD 


3630 


bne 


chk3 






KG 


3060 


clc 






NO 


3640 


dec 


$0628 


; sector counter 




HF 


3070 


adc 


#$0a 




OF 


3650 


bne 


cont 






OM 


3080 


sta 


$32 




EG 


3660 


Ida 


$51 


;track number 




LJ 


3090 | 


dec 


$0628 




DL 


3670 


cmp 


#$26 


;are 38 tracks done 




JA 


3100 


bne 


write 




OC 


3680 


bcs 


done 






MG 


3110wait8 


bvc 


wait8 




JF 


3690 


jmp 


bigger 


;do more tracks 




CP 


3120 


civ 






KO 


3700; 










HI 


3130wait9 


bvc 


wait9 




LI 


3710 done 


Ida 


#$ff 


; reset values 




GA 


3140 


civ 






PE 


3720 


sta 


$51 






IN 


3150 


jsr 


$fe00 


;kill write mode 


NH 


3730 


Ida 


#0 






MO 


3160 


Ida 


#$c8 


;now verify track with 


AG 


3740 


sta 


$50 














200 trys 


DB 


3750 


Ida 


#1 


;job done ok 




JC 


3170 


sta 


$0623 




GE 


3760 


jmp 


$f969 


;main error handler 




JA 


31 80 try 


Ida 


#0 


; set buffer pointer 


KE 


3770 error 


dec 


$0620 


;error counter 




GD 


3190 


sta 


$30 




NN 


3780 


beq 


next 






BH 


3200 


Ida 


#3 




DO 


3790 


jmp 


start 






NE 


3210 


sta 


$31 




JD 


3800 next 


Idy 


#$ff 
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JA 


3810 sty $51 




BB 


470 


Ida 


#$06 






MM 


3820 iny 


GK 


480 


sta 


$32 






KB 


3830 sty $50 




JB 


490 


Ida 


#$03 






GJ 


3840 jmp $f969 


;main error handler 


HL 


500 


sta 


$31 






CG 


3850 step Idx $1cOO 


;move head half a track 


BK 


510 


jsr 


$f510 


;read in header block 




AP 


3860 inx 


- 


BG 


520 


jsr 


$f556 


;wait for sync 




CN 


3870 txa 




KL 


530 


bvc 


waiti 


;read in data block 




FB 


3880 and #$03 




ON 


540 


civ 








FF 


3890 sta $13ff 




OM 


550 


Ida 


$1c01 






DO 


3900 Ida $1c00 




LC 


560 


sta 


($30),y 






JG 


3910 and #$fc 




KB 


570 


iny 








El 


3920 ora $13ff 




KL 


580 


bne 


waiti 






PD 


3930 sta $1c00 




LE 


590 


Idy 


#$ba 






LP 


3940 Idy #$05 




AO 


600 


bvc 


wait2 






HI 


3950 Idx #$ff 




EC 


610 


civ 








NL 


3960 loopl dex 


;allow head to settle 


EB 


620 


Ida 


$1c01 






ME 


3970 bne loopl 




Gl 


630 


sta 


$0100,y 






HE 


3980 dey 




AG 


640 


iny 








AG 


3990 bne loopl 




CA 


650 


bne 


wait2 






Ml 


4000 rts 




GF 

EL 


660 
670 


civ 
bvc 


hold 


;see if tail gap is 












LK 


680 


civ 




;over 






KF 


690 


Ida 


$1c01 






MJ 


1 00 openl ,8,1, " O:header.obj 




HE 


700 


cmp 


#$55 






NB 


1 05 rem save " @0: header, pal 


",8 


HD 


710 


beq 


hold 






00 


110sys700 


;pal 64 assembler 


Kl 


720 


Ida 


$1c0c 






00 


120; 




00 


730 


and 


#$1f 






EJ 


130 this program lives inside the 1541 


NM 


740 


ora 


#$c0 






IH 


140 and creates an extra header block 


GO 


750 


sta 


$1c0c 






IK 


150 it should be used with its basic 


FL 


760 


Ida 


#$ff 






AO 


1 60 counterpart in the c64 




KO 


770 


sta 


$1c03 






AC 


170; 




HB 


780 


Ida 


#$ff 


;write out 5 sync markers 




CM 


180 .opt o1 




MP 


790 


sta 


$1c01 






MK 


1 90 * * $0800 




DL 


800 


Idx 


#$05 






LG 


200 jmp SeaaO 


; reset disk drive 


EL 


810 


bvc 


wait3 






CF 


210 Ida $13fe 


;track #;rentry from basic 


GP 


820 


civ 








AL 


220 sta $18 




FP 


830 


dex 








LF 


230 Ida $13ff 


; sector # 


CM 


840 


bne 


wait3 






HM 


240 sta $19 




JM 


850 


Idx 


#$00 


;write out extra header 




LA 


250 Ida #$00 


;checksum for header 


JE 


860 


bvc 


wait4 


; block that was 




LM 


260 eor $16 




KN 


870 


civ 




;savedat$1000 




HN 


270 eor $17 




OD 


880 


Ida 


$1 000.x 






DO 


280 eor $18 




AG 


890 


sta 


$1c01 






PO 


290 eor $19 




AG 


900 


inx 








LB 


300 sta $1a 




DG 


910 


cpx 


#$0a 






Ml 


310 jsr $f934 


;convert header to gcr 


EB 


920 


bne 


wait4 






PL 


320 Idx #$00 




PN 


930 


Idx 


#$09 


;write out header gap 




DH 


330 Ida $24,x 


;store our header 


KD 


940 


bvc 


wait5 






Kl 


340 sta $1 000.x 


;image in a safe place 


IH 


950 


civ 








KD 


350 inx 




GA 


960 


Ida 


#$55 






ND 


360 cpx #$0a 




AL 


970 


sta 


$1c01 






MD 


370 bne loopl 




LI 


980 


dex 








EP 


380 Ida $13fe 


;set up for reading 


MF 


990 


bne 


wait5 






GP 


390 sta $06 


,-last sector on this track 


El 


1000 


jsr 


$fe00 


terminate write mode 




BN 


400 Idx $13ff 




MN 


1010 


Ida 


#$01 


;jump to error handler 




BF 

PM 


410 dex 
420 stx $07 




CC 


1020 


jmp 


i $f969 


;with a job all ok 








BN 


430 Ida #$00 














EL 


440 sta $3d 














LI 


450 sta $33 














Ml 


460 sta $30 
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Assembly Language Disk Access 

Richard Evers, Editor 



. . .it's no more difficult than Basic, once you try it. . . 



For many programming applications, disk accessing through 
Basic is sufficient. At times, though, the speed of Basic disk 
access tends to induce a neanderthal reaction within us. This 
transformation is one in which we all take on from time to time, 
and as such, it is also one that is best left hidden. The solution: 
write the disk access routines in assembler. 

There is a stigma attached to working with the drive at a 
machine code level. Programmers from all walks of life will 
often produce code destined for greatness, yet these same 
programmers will shy away from taking on the drive. The 
'perhaps it will bite' syndrome prevails. This article has been 
written to dispel all such fears and show that the rumours have 
been more hysteria than fact. Enough babbling, time to pro- 
duce. 

If we were to write a simple file read routine in Basic, it would 
go something like this; 

100 input "filename ";f$ 

1 10 open 7, 8, 9, (f$) 

120get#7,a$: print a$;: if st = 0then 120 

130 close 7 

Not too difficult. Well, doing it in assembler is a bit more 
tedious, but easy to grasp after performing it a few times. Below 
is the flow of operations for the code written for this occasion. 

1. Input filename from keyboard 

2. Determine length of filename 

3. Set-up parameters for the filename 

4. Set-up logical address, secondary address, and 
device number 

5. Open the file 

6. Set input device as the file to be read 

7. Read a character from disk and print it to the screen 

8. Check the file status - if not the end of file, get 
another character (7) 

9. Clear channel, close the file, and return to Basic 

This is a very simple example of a sequential file read routine. 



Notes On Direct Mode 

If you were to assemble the source below and try to use it from 
direct mode, you will generate a syntax error on return to Basic. 
Why? Because direct mode statements are sent to the Basic 
input buffer for use. When a SYS statement is performed, the 
return address is placed on the stack, to be used when return to 
Basic is desired. Now the problems develop. In direct mode the 
SYS command will generate a return address that points right 
into the Basic input buffer. My examples use an Input routine to 
capture the desired filename. Input also uses the Basic input 
buffer. When the RTS is executed to return to Basic, it will land 
back into a pile of data it cannot understand, the filename. 
Instant syntax error. In program mode this will not happen 
since the return address will point into Basic text. 

To get around this problem, a few methods exist. The first is to 
clear out the input buffer with zeros before returning to Basic. 
The next method is to retain the input buffer contents on 
entrance to the routine, and swap it back into the buffer before 
exit. A third method is to jump to a Basic warm start on exit 
instead of the RTS. A warm start will bring you cleanly back 
into direct mode Basic, irregardless of the mode in which you 
were working prior, direct or program mode. A thought to 
remember. 

Procedure 

In the first block of source, written for the Basic 4.0 Pet/CBM 
machines, you will notice that it looks a tad awkward in 
relation to the second block of source, written for the C64. The 
reason is that Commodore grew wiser, as far as programming 
goes, as time went by. They used their noggins and produced 
some really nice kernal routines to help make writing easier. In 
fact, my C64 source is virtually perfect for the VIC 20, with the 
exception of two ROM routines. The first routine, INPUT, is the 
Input routine, of which the address is located in the source. The 
second, PRTSTR, is a routine that will print a string of charac- 
ters pointed to by the Y register (high byte), and the Accumula- 
tor (low byte). This routine will continue printing characters 
until a zero byte terminator is found. It's address can also be 
found listed in the source. 
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When you get a little better acquainted with the techniques 
involved, I am sure that you will be able to find quite a few 
shortcuts to take to produce the same effect. One shortcut is to 
use a Logical and Secondary address of 8. Instead of; 



Ida #7 

sta logadd ; set logical address 

Ida #8 

sta devnum ; set device number 

Ida #9 

sta secadd ; set secondary address 



for the Pet/CBM, you could simply: 

Ida #8 ; la, sa, devnum 

sta logadd 
sta devnum 
sta secadd 

It would save all of four bytes. For the C64 version, the code: 



Ida #7 
Idx #8 
Idy #9 

could be optimized into: 

Ida #8 

tax 

tay 



; logical address 
; device number 
; secondary address 



; la, sa, devnum 



Saving all of two bytes. If you are willing to stoop to a level of 
lack of clarity and further lack of adaptability, you can save a 
byte here and there. But wait until you understand the code 
properly. 

Another note that might bother you. I used a very simple 
method to retrieve the filename, an Input statement. If you 
have been reading our magazine for any length of time, you 
might have noticed a few really sharp routines covered in prior 
issues. My favourite is the method of parsing the filename as a 
string following the SYS address when entering the routine. For 
purposes of simplicity, my example shows the Input statement. 
For you own creations, try to find one that suits the occasion 
best. 

Very little more requires to be said about the routine that 
follows. It is a simple file read routine and performs no major 
miracles. Perhaps, though, you want to write to a file. This 
might be a tad more difficult, depending on the file type 
desired. 

The easiest would be to create a Program file on disk. To do 
this, change the Secondary Address used in our example to a 1 . 
With a Secondary Address of 1, all file work automatically 
defaults to a write, with the created file becoming a PRG type. 



As you can probably guess, this feature was incorporated to 
make the Saving of Basic programs a little easier. Any Second- 
ary Address greater than 1 and less than 1 5 will read from a file 
on default. 

Once you have created a PRG write file, you have to be able to 
write to it. The code below shows the normal flow of opera- 
tions. Below that is the changes required to make be able to 
write: 

- Before - 

Idx logadd ; get logical address 
jsr chkin ; set input device 

i 

; ... get and print chars from file . . . 

more = * 

jsr chrin ; get a char from disk 
jsr chrout ; print it to the screen 

- After - 

Idx logadd ; get logical address 
jsr chkout ; set output device 

; ... get and print chars to file . . . 
more = * 

jsr getchr ; * * your routine to supply the data 

jsr chrout ; output to disk 

Pretty easy. Instead of setting the input device (CHKIN), you 
now set the output device (CHKOUT). The Kernal address for 
CHKOUT is $FFC9. Time for a quick interjection. If you want to 
simultaneously read from one file and write to another, there is 
one small problem. You would have to set the input device, 
read the character, set the output device, write the character, 
and continue this process until the input file has been read to 
your satisfaction. See below ; 



Idx #readla 

jsr chkin 

jsr chrin 

pha 

Idx #wrtla 

jsr chkout 

pla 

jsr chrout 



; read logical address 
; set input device 
; get a character 
; retain the byte 
; write logical address 
; set output device 
; get it back 
; output char 



A little more tedious, but it works. Time to move on to file 
formats other than the PRG type. 

Writing to a Sequential or User type file is a bit more difficult. A 
slight addition will have to be made to the filename, plus an 
alteration of the filename length will also have to be made to 
reflect this. The altered code could be something like this: 
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doit = * 
Idy #0 

* 

; . . . add write suffix to filename . . . 
alter = * 

Ida write.y ; get data to add 

sta inpbuf.x ; place it following the filename 

inx 

iny 

cpy #length ; end of extra data 

bne alter ; not yet 

• 
i 

stx lennam ; set filename length 

The n ,s,w " at label WRITE should be placed near the 
data for the label PROMPT, just to keep it all in one 
place and out of the way. See below for label WRITE: 

write = * 

.asc " ,s,w " ; change s to u for a user file 
length = *-write 

This covers writing to a Program, Sequential, and 
User file. As far as Relative files go, the modifications 
to my source would be a little more difficult. The 
Opening of a Relative file wouldn't be too horrific, but 
the positioning of records, writing for the first time, 
plus reading and writing thereafter could be code 
consuming. If you feel that life is not complete without 
this extra bit of knowledge, drop me a letter. With 
more than a couple requests, maybe. 

As a final closing paragraph, I think a brief discussion 
regarding Opening files without a filename is in order. 
You may want to do this from time to time, as in the 
case of Opening the drives command channel for 
direct access work. The trick to this is simple. Don't 
bother with the filename pointers, and set the fi- 
lename length to zero. If it was not a disk channel but 
a printer that required Opening, similar to the Basic 
incantation "OPEN 4,4", then assigning a value of 255 
to the secondary address would perform the service. 
Two fast solutions for a few occasional problems. And 
so, with this article complete, I wish you luck in the 
land of disk access. With patience, and your thoughts 
collected, difficulties should not arise. 



Basic 4.0 - Pet/CBM Version 



MA 
HO 

Fl 
PB 
DK 
BN 
GB 
MA 
GE 
JK 
CK 
DE 
GL 
IF 
NK 
CG 
CH 
FF 
BL 
KO 
Fl 
BF 
GL 
DM 
KM 
LM 
GB 
EM 
LI 
CD 
HN 
AB 
HL 
NK 
OA 
FD 
IK 
MD 
GF 
LJ 
JE 
LJ 
NK 
Dl 
HA 
DK 
GK 
DD 
ND 
EP 
DF 
OF 



1 00 rem save " 0:disk 1 .pal" ,8 

110 rem ** rte/85 - disk access in assembler - basic 4.0 

pet/cbm ** 
120open4,8,1, H 0:disk1.obj" 
1 30 sys(0) 
140 .opt o4 
1 50 * = $027a 

160; 

1 70 status - $96 
180 lennam = $d1 
1 90 logadd = $d2 
200 secadd = $d3 
210devnum= $d4 
220 name = $da 
230 inpbuf 
240 input 



250 prtstr 
260 close 
270 open 
280 chkin 
290 clrchn 



= $0200 

- $b4e2 
= $bb1d 
= $f2e2 
= $f563 

- $ffc6 
= $ffcc 
= $ffcf 



file status 

length of filename 

logical address 

secondary address 

device number 

filename (ptr) 

input buffer 

input routine 

print string from y/a (hi/lo) 

close file 

open file 

open channel for input 

restore default i/o 

input char from channel 

output char to channel 



300chrin 

310chrout = $ffd2 

320 

330 ; ** disk read routine ** 

340 

350 

360 

370 

380 

390 

400 

410; 

420 ; . . . determine length of filename . 

430 getlen = * 



(kernal) 
(kernal) 
(kernal) 
(kernal) 



ask for filename . . . 
Idy #>prompt 
Ida #<prompt 
jsr prtstr ;print string 

jsr input ;input filename into input buffer 

Idx #0 



440 

450 

460 

470 

480; 

490 ;. . 

500 doit 

510 

520 

530 

540 

550 

560; 

570 ;. . 

580 

590 

600 

610 



Ida inpbuf.x 

beq doit 

inx 

bne getlen 

. set-up filename . 



;get char from inpbuf 

;if = then end of filename 

;un-conditional branch 



= * 



stx lennam ;set filename length 

Ida #<inpbuf ;set ptrs to name 

sta name 

Ida #>inpbuf 

sta name + 1 

set-up file for open . . . 

Ida #7 

sta logadd ;set logical address 

Ida #8 

sta devnum ;set device number 
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JG 


620 Ida #9 


IJ 


290; 




LO 


630 sta secadd ;set secondary address 


FK 


300 


; ** disk read routine ** 




HM 


640 Idx #0 


MK 


310 






AA 


650; 


NK 


320; 


; . . . ask for filename . . . 




BA 


660 ; ... set length then open . . . 


IP 


330 Idy #>prompt 




NC 


670 jsr open ;openfile 


GK 


340 Ida #<prompt 




HN 


680 Idx logadd ;get logical address 


NG 


350 jsr prtstr ;print string 




DD 


690 jsr chkin ;set input device 


EB 


360 jsr input ;input filename into input 




CD 


700; 




buffer 




FB 


710 ; . . . get and print chars from file . . . 


JL 


370 Idx #0 




IJ 


720 more = * 


CP 


380; 




LC 


730 jsr chrin ;get a char from disk 


JJ 


390 ; . . . determine length of filename . . . 




HL 


740 jsr chrout ;print it to the screen 


PI 


400 getlen = 




DB 


750 Ida status ;check if end-of-file 


AP 


410 Ida inpbuf.x ;get char from inpbuf 




GK 


760 beq more ;not yet - go for some more 


HB 


420 beq doit ; if = then end of filename 




IH 


770; 


Kl 


430 inx 




BM 


780 jsr clrchn ;clear channel 


OB 


440 bne getlen ;un-conditional branch 




ED 


790 Ida logadd ; logical address 


ID 


450; 




DL 


800 jsr close ;closefile 


NH 


460 ; . . . set-up filename . . . 




PC 


810 rts ;return to basic 


LC 


470 doit 




KK 


820; 


DC 


480 txa ;.a = length 




NG 


830 prompt = * 


EN 


490 Idx #<inpbuf ;.x = nameptrlo 




MJ 


840 .asc "filename? " 


LM 


500 Idy #>inpbuf ;.y = name ptr hi 




Ml 


850 .bytO 


LG 


510 jsr setnam ;set-up filename 




CN 


860; 


OH 


520; 




CE 


870 .end 


DK 
JD 


530 ; . . . set-up file then open . . . 

540 Ida #7 ;logical address 










MO 


550 Idx #8 ;device number 


Commodore 64 Version 


LN 


560 Idy #9 secondary address 




LE 


570 jsr setlsf ;set la, sa, and devnum 




DN 


580 jsr open ;open file 




OA 


1 00 rem save " 0:disk 2. pal " ,8 


HM 


590 Idx #7 ;logical address 




CN 


1 10 rem ** rte/85 - disk access in assembler 


JN 


600 jsr chkin ;set input device 






-c64 version ** 


IN 


610; 




Jl 


120 open 4,8,1, "0:disk2.obj" 


LL 


620 ; ... get and print chars from file . . . 




NB 


1 30 sys(700) 


OD 


630 more = * 




DK 


140 opt 04 


BN 


640 jsr chrin ; 


get a char from disk 




PM 


1 50 • = $033c 


NF 


650 jsr chrout ; 


print it to the screen 




GB 


160; 


NF 


660 jsr readst ; 


check if end-of-file 




MB 


170inpbuf =$0200 ;input buffer 


ME 


670 beq more ; 


not yet - go for some more 




PI 


180 input = $a560 ;input routine ($c560 for vie) 


OB 


680; 




KJ 


1 90 prtstr = $ab1e ; print string from y/a ($cb1efor vie) 


HG 


690 jsr clrchn ; 


clear channel 




CH 


200 readst = $ffb7 ;read file status (kernal) 


JN 


700 Ida #7. ; 


logical address 




FP 


210setlsf = $ffba ;set la, sa, and devnum (kernal) 


PH 


710 jsr close ; 


;close the file 




PG 


220 setnam = $ffbd ;set-up filename (kernal) 


ML 


720 rts 




Dl 


230 open = SffcO ;open file (kernal) 


AF 


730; 




NJ 


240 close = $ffc3 ;close file (kernal) 


DB 


740 prompt = * 




DJ 


250 chkin = $ffc6 ;open channel for input (kernal) 


CE 


750 .asc "filename? " 




MM 


260 clrchn = $ffcc ; restore default i/o (kernal) 


CD 


760 .bytO 




HG 


270 chrin = $ffcf ; input char from channel (kernal) 


IH 


770; 




DD 


280 chrout = $ffd2 ;output char to channel (kernal) 


IO 


780 .end 
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Directory Match 



Pierre Corriveau 
Montreal, Quebec 



As time passes by, your library of programs 
grows bigger and bigger. Utility programs, 
games, educational programs, and a lot of them 
have similar names. 

Then one evening, you need to find that one 
utility program, you don't remember the whole 
name but you know there was the word " test " 
in it. Was it " Prt test pgm " , " Test printer " or " 
Print, test " ? Which disk was it on ? 

There you go, looking through all your disks, 
typing LOAD " $ " ,8 and LIST dozens of times. 
Pattern matching can't help you since you don't 
know where the word "test" is located in the 
filename. You have to examine each filename; a 
long and boring job. 

That's why D1R MATCH was created. Now all 
you have to do is load it in, insert the disk you 
want to search in the drive and type SYS 49152, 
"test". DIR MATCH will list any filename that 
contains "test" in it. You can also type SYS 
49152 alone and it will list the whole directory 
on screen. To stop the listing, hold the SHIFT 
key. To abort it, press the BACK ARROW key. 

Also, the program is made so that it can be 
relocated. The basic loader will take care of that. 
The PAL source code is included for those who 
are tuned to the fast paced world of machine 
language. 

But wait a minute, what if you also forgot which 
disk DIR MATCH was on ?!? 



DIR MATCH Basic Loader 



CP 
CN 
JH 
NC 
MB 
OJ 
PN 
CA 
AB 
MO 
Nl 
AE 
AJ 
GO 
EG 
JO 
AM 
PL 
HO 
CA 
BK 
HF 
OA 
DM 
CE 
BA 
MG 
FL 
IJ 
KH 
NA 
AE 
CF 
HP 
CI 
HO 
MO 
EN 
PC 
HC 
IH 
EE 
HF 

KC 
DM 
El 
JF 
OJ 
PL 
KC 
DE 
DJ 
LN 
BK 



1 00 rem the routine uses channels #1 3 and #15 

1 1 ad = 491 52:rem change if you wish 

1 20 print "Bdirectory search routine " 

1 30 print " Bsys " ad " = directory listing " 

1 40 print "Bsys " ad " . " chr$(34) " mon " chr$(34) 

1 50 print " will list filenames containing " 

1 60 print " 'mon' like 'micromon' and '64mon' 

1 70 print " Hsys " ad " ,a$ also works " 

180 print "(pause listing with shift" 

1 90 print " halt with run/stop " 

200 print " (relocatable: look at line 110" 

210 print " . . .please wait. . . ' 

220 gosub250 

230 end 

240: 

250 a = ad:rem change if you wish 

260 read d:ifd = -1 then 280 

270 poke a,d:ck = ck + d:a ■ a + 1 :goto 260 

280 if ck<>48226 then print " error in data lines 390-840 " :end 

290 a = ad 

300fori = 1 to 11 

310 read rt:ch = ch + rt 

320 read of: if of = -1 then 360 

330 ch = ch + of 

340 poke a + of + 1 ,int((a + rt)/256): pokea + of, (a + rt)-256»int((a + rt)/256) 

350 goto320 

360 next 

370 if ch<>8490 then print " error in data lines 870-920 " :end 

380 return 



32,121, 
32,158,173 
32,210,255 
17, 144,5 



390 data 169, 0, 141, 75, 193, 
400 data 240, 47, 32,253,174, 
410 data 32, 143,173, 169, 13, 
420 data 1 60, 0, 1 77, 1 00, 201 , 
430data162, 23, 76, 58,164,141, 75,193 
440data200, 177, 100, 133, 20, 200, 177, 100 
450 data 133, 21,165,100,164,101, 32,219 
460data182, 169, 0, 32,189,255,169, 15 
470data162, 8,160, 15, 32,186,255, 32 
480 data 192, 255, 144, 8, 72, 32, 232, 192 
490data104, 76, 59,164,169, 1.162,205 
500 data 160, 235, 32,189,255,169, 13,162 
510data 8,160, 0, 32.186,255, 32,192 
520 data 255, 1 76, 225, 1 62, 1 5, 32, 1 98, 255 
530 data 32,207,255,201, 48,240, 3, 76 
540 data 220, 192, 32,204,255,162, 13, 32 
550 data 198, 255, 32,207,255, 32,207,255 
560 data 32,204,255, 32,246,192, 32, 47 
570 data 193, 32,225,255,240, 8, 32,246 
580 data 192, 16, 6, 32, 47,193, 76,232 
590 data 192, 173, 75,193,208, 7,173,141 
600data 2,208,251,240,225, 162, 0, 189 
610 data 80,193,232,201, 34,208,248,142 
620data 77,193,160, 0,189, 80,193,201 
630 data 34,240,206,209, 20,240, 8,238 
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NN 


640 data 77, 193, 1 74, 77, 193, 208, 235, 200 


OF 


420 cmp #17 


;if > 16 error 




PD 


650 data 232, 204, 75,193,208,230, 32, 47 


NA 


430 bcc okstrlen 






LO 


660data193, 76,145,192, 32,210,255,165 


OP 


440 Idx #23 


;string too long error 




IA 


670 data 144, 208, 5, 32,207,255,208,244 


MM 


450 jmp $a43a 






KF 


680 data 32, 204, 255, 169, 13, 32, 195, 255 


ME 


460 okstrlen = * 






AF 


690 data 169, 15, 32,195,255, 96,169,255 


FC 


470 sta strlen 


;save length 




CH 


700 data 141, 76,193,162, 13, 32,198,255 


AM 


480 iny 






HE 


710 data 32,207,255, 32,207,255,240, 32 


EB 


490 Ida ($64),y 


;save pointer to string 




Dl 


720 data 32,207,255,141, 78,193, 32,207 


LI 


500 sta string 






ME 


730 data 255, 141, 79,193,160,255,200, 32 


ON 


510 iny 






Nl 


740 data 207, 255, 1 53, 80, 1 93, 240, 9, 201 


ON 


520 Ida ($64),y 






FD 


750 data 34, 208, 243, 141, 76, 193, 240, 238 


LG 


530 sta string + 1 






FL 


760 data 32, 204, 255, 173, 76, 193, 96, 174 


AL 


540 Ida $64 






BO 


770data 78,193,173, 79,193, 32,205,189 


NB 


550 Idy $65 






CB 


780 data 160, 255, 169, 32. 32,210,255,200 


PP 


560 jsr $b6db 


;clean descriptor stack 




DB 


790 data 185, 80,193,208,247,169, 13, 32 


AL 


570; 






MK 


800 data 210, 255, 96, 0,255, 0, 32, 32 


OC 


580 ;set command channel for 


open 




MC 


r ¥ ■ r ¥ w W 

810 data 32, 32, 32, 32, 32, 32, 32, 32 


HN 


590 opencmd = * 






GD 


■ w 7 J r r r 

820 data 32, 32, 32, 32, 32, 32, 32, 32 


DE 


600 Ida #0 






AE 


* ¥ ¥ ■ 1 * f ^^ 

830 data 32, 32, 32, 32, 32, 32, 32, 32 


DC 


610 jsr setnam 




DE 


840 data 32, 32, 32, 32, -1 i 


IP 


620 Ida #15 






GM 


HB IB, *M 1H. IB IB HM ■, HM HHHiiiH. V H X HM HJ 1H HHHiiH ■. V HHH H 

850: 


NM 


630 Idx #8 






^m** ¥ T ¥ 

HA 


*i^ ^*^ ^B* 

860 rem relocation code 


MG 


640 Idy #15 






HD 


870 data 331, 3, 38,162,210, -1,220,120 


CE 

1 A 


650 jsr setfis 

*"1 ^K ***l ' 






EG 


r t t r i f — ^^ | 

880data -1,246,140,151, -1,303,143,156 


IA 
MK 


660 jsr open 
670 bcc noerror 


• 




PA 


890data215, -1,232,159, 78, -1,336,176 


OB 
AM 


L — » ^-J 1 p^ir *«pF ^p^ 1 » ^^ *mg¥ ¥ ¥ l«r ¥ 

680; 

690 knerror = * 






Nl 


900 data 189, 283, 321, -1, 333, 184, 200, 203 






Kl 


910data -1,145,218, -1,332,249,292.300 


Kl 


700 pha 
710 jsr fini 


;save error number 




MP 


920 data -1,334,268,304, -1,335,274,307, -1 


JL 


■J m. BB. mi "■■ BB. HHHI ■ ■■■■. ■, 1. ■BAflUJi ■■ BB BBHHI VBflBJ K 

;close channel #15 










IF 


720 pla 






MJ 


730 jmp $a43b 


;print kernal error msq 


DIR MATCH PAL Source Code 


KF 
HE 


740; 

750 ;set channel #13 for open 


* r" <& 




^^k pb 




* 




FD 


1 00 sys700 


PA 


760 noerror = * 






LN 


1 1 ;print the disk directory 


PO 


770 Ida #1 






00 

1 / ^*\. 


120; 


DA 


780 Idx #$cd 


;ptto'$' ofkeybrdmat. 

• * 




KO 


130 .opt oo 


AC 


790 Idy #$eb 
800 jsr setnam 






NH 


1 40 • = $c000 


BO 






FM 


150 setfis = $ffba 


AK 


810; 






CL 


1 60 setnam = Sffbd 


EE 


820 ;set file name to "$" 






JO 


170 open = $ffc0 


EM 


1 ^*^ 

830 Ida #13 






MD 


180chkm = $ffc6 


PJ 


840 Idx #8 






CK 


190chrin = $ffcf 


NJ 


850 Idy #0 
860 jsr setfis 






EL 


200 clrchn = $ffcc 


EB 






PB 


210 close = $ffc3 


KN 


870 jsr open 






DA 


220 chrout = $ffd2 


JL 


j ■ 

880 bcs knerror 






BB 


230 stop = $ffe1 


AP 


890; 






Al 


240 st « $90 


KP 


900 ;check if everything ok 






CG 


250 chrgot = $79 


GH 


910 Idx #15 






CJ 


260 string = $14 


DJ 


920 jsr chkin 






El 


270; 


CL 


930 jsr chrin 






CB 


280 ;check if param is present 


BD 


940 cmp #"0" 


;'0' means ok 




NA 


290 Ida #0 


GM 


i 

950 beq br1 


Jr 




PM 


300 sta strlen 

^-- * — ¥ m 


KH 


■ 

960 jmp perror 

¥ ¥ 


;print error and exit 




EF 


310 jsr chrgot 


AE 


970; 






AL 


320 beq opencmd 

r\ f^x r\ 


EB 


980 ;looking good, disconnect ch #15 




AM 


330 ; 


ME 


990 ;and start printing 






CA 


340 ;get the string 


OF 


1000; 






PO 


350 jsr $aefd ;check comma 


KD 


w — — y 

1010 br1 = * 






BF 


360 jsr $ad9e ;get parameter 


DA 


1020 jsr clrchn 






HA 


370 jsr $ad8f ;check if string 


10 


1030 Idx #13 






CA 


380 Ida #13 


LA 


1040 jsr chkin 






NF 


390 jsr chrout 


ME 


1050 jsr chrin 


;skip load adrs 




LN 


400 Idy #0 


LK 


1060 jsr chrin 


;with 2 chrins 


EH 410 Ida ($64),y ;get string length 


FD 


1070 jsr clrchn 
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OK 


1080; 




CF 


1740 Ida #13 




FE 


1090 ;print disk name 




LE 


1 750 jsr close 




OJ 


1100 jsr getfile 




MG 


1760 Ida #15 




LA 


1110dir 




PF 


1770 jsr close 




NO 


1120 jsr prtfile 




AO 


1 780 rts 




AA 


1130nextfile = 




EH 


1790; 




HJ 


1140 jsr stop 


; stop key pressed "? 


NM 


1 800 ;input filename in buffer 




OE 


1 1 50 beq done 


; if so exit 


ON 


1810 ;on return flag = 255 means end 




KN 


1160 jsr getfile 




DP 


1820; flag = 34 means ok 




NC 


1 1 70 bpl notdone 




MJ 


1830; 




CN 


1180 jsr prtfile 


;prtnbof blks 


EA 


1840 getfile = 




PP 


1190 done = * 




MJ 


1850 Ida #255 




EJ 


1200 jmp fini 


;close all files and exit 


HK 


1860 sta flag 




HM 


1210 notdone = * 




AD 


1870 Idx #13 




GO 


1220 Ida strlen 


;null string "? 


DF 


1880 jsr chkin 




PG 


1230 bne match 




PG 


1890 jsr chrin ;skip forward chain 




JM 


1240waitshft = * 




ME 


1 900 jsr chrin ;except zero chain 




DF 


1250 Ida $028d 


; shift key flag 


EH 


1910 beq get2 ;meansend 




KO 


1260 bne waitshft 




GP 


1920; 




JF 


1270 beq dir 




El 


1930 cont = * 




GH 


1280; 




BC 


1 940 jsr chrin ;get nb of blocks 




KN 


1290 ;check for a match 




HO 


1950 sta flname 




KF 


1 300 match = * 




IL 


1960 jsr chrin 




GK 


1310 Idx #0 


.search for first quote 


NL 


1970 sta flname + 1 




CL 


1320match2 - 




CD 


1980; 




PN 


1330 Ida flname + 2,> 


t 


FB 


1 990 ;let's get text 




IB 


1 340 inx 




CJ 


2000 Idy #255 




IB 


1350 cmp #34 




NG 


2010 text = * 




FF 


1360 bne match2 




EM 


2020 iny 




CI 


1370 stx flindex 


; store in index 


OP 


2030 jsr chrin 




LO 


1380 match 1 = • 




FO 


2040 sta flname + 2,y 




LD 


1390 Idy #0 


;ptto 1st char of string 


CK 


2050 beq get2 ;0 = end of line 




00 


1400; 




IE 


2060 cmp #34 ;quote "? 




KB 


1410nextchar = * 




NK 


2070 bne text ;no, get some more 




JD 


1420 Ida flname + 2,> 


f 


KO 


2080 sta flag ;yes, set the flag 




EF 


1430 cmp #34 


;quote = end of filename 


JE 


2090 beq text ;jump 




FJ 


1440 beq nextfile 




Al 


2100 get2 




KK 


1450 cmp (string), y 


;does char match "? 


FE 


2110 jsr clrchn 




EP 


1460 beq charmat 




NG 


2120 Ida flag 




CH 


1470 inc flindex 


;no, check next char 


OD 


2130 rts 




DF 


1480 Idx flindex 




CN 


2140; 




Nl 


1490 bne match 1 


;jump 


JJ 


21 50 ;routine to print filename 




HE 


1 500 charmat = * 




IC 


21 60 filename ends with a zero byte 




MO 


1510 iny 


ipartial match, bump index 


KD 


2170 prtfile = * 




MM 


1 520 inx 




LJ 


21 80 Idx flname print nb of blocks 




FE 


1530 cpy strlen 


;if not whole string 


LF 


2190 Ida flname +1 




FE 


1540 bne nextchar 


;done, check next chr 


BD 


2200 jsr $bdcd 




El 


1550; 




EG 


2210 Idy #255 




DG 


1560;gotamatch! 




FG 


2220 Ida #" " ;1 space 




PK 


1570 jsr prtfile 




FD 


2230 prtl = * 




FE 


1580 jmp nextfile 




HJ 


2240 jsr chrout 




MK 


1590; 




KK 


2250 iny 




PP 


1600 ;there was an error; print it 




Dl 


2260 Ida flname + 2,y 




Al 


1610 ;the first char of the error msg 


EB 


2270 bne prtl 




NP 


1620 ;is already in the accumulator 


OG 


2280 Ida #13 




EN 


1630; 




JM 


2290 jsr chrout 




HJ 


1640 perror = * 




IO 


2300 rts 




JE 


1650 jsr chrout 




MH 


2310; 




PN 


1660 Ida st 




BL 


2320 strlen .byteO 




EA 


1670 bne fini 


;done. back to basic 


IN 


2330 flag .byte 255 




AK 


1680 jsr chrin 




PG 


2340 flindex .byteO 




JH 
KB 


1690 bne perror 
1700; 


;jump 


CE 


2350 flname .asc " " ;30 spaces 








LN 


1710 ;all done, go back to basic 








IA 


1 720 fini 








JM 


1730 jsr clrchn 
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Commodore 64 
Memory Configurations 



William Levak 
Ann Arbor, MI 



Effects Of The PLA Chip In All Situations 



The major obstacle to understanding the Commodore 64's 
memory is the 82S100 programmed logic array (PLA) that 
controls it. What we need is the truth table for the chip. A truth 
table is a table that shows the output on every output pin for 
every possible combination of inputs on the input pins. We 
would normally find the truth table for a chip on the manufac- 
turer's data sheet. However, a programmed logic array does not 
have a truth table until it is programmed (in this case by 
Commodore), and Commodore has not published the truth 
table. I have therefore read out the chip and obtained the truth 
table which is shown in the first table. 



How To Read The Truth Table 



At the left side of the table are the names of the inputs (pins 10- 
1 1 5) and outputs (pins F0-F7) of the PLA as given in the circuit 
diagram in the Commodore 64 Programmer's Reference Guide. 
The 26 columns in the table each represent a combination of 
inputs recognized by the PLA and the outputs that combination 
causes. The first column with all the inputs marked with a '-' 
represents the default output state, that is, if none of the other 
input conditions are met, then the output will be as indicated in 
this column. For all the other columns, a T indicates a high 
input state ( + 5 V), a'0' indicates a low input state (0 V), and an 
'x' represents an input that is ignored for this column. If the 
input conditions in a particular column are met then the 
outputs will be changed from the default condition. 

A "1" indicates that the output will change from low to high, 

a "0" indicates that the output will change from high to low, 

and 

an "x" indicates that the output will remain in the default state. 

It is possible that more than one input condition will be met at 
the same time, and their outputs will then be combined. This 
occurs only with certain timing signals necessary to access 
RAM. 

Although the truth table is the most complete description of the 
PLA possible, it is not very useful to the average programmer. I 
have therefore produced memory maps of the fourteen possi- 
ble memory configurations of the Commodore 64. The mem- 
ory configuration is selected by five lines on the PLA: 



LORAM, HIRAM, and CHAREN are controlled 
by bits 0, 1, and 2 at memory location 1. 

GAME and EXROM are two lines on the 

cartridge expansion port and are 

controlled by the circuitry on the cartridge. 

All five lines are normally high. 

The addresses at the left of the table are the beginning to 
ending addresses of each 4K block. KERNL, BASIC, and 
CHARA refer to the kernal, BASIC and character ROMs respec- 
tively. I/O refers to the 4K I/O block which contains all the I/O 
chips and the color memory. ROM H and ROM L refer to two 
cartridge ROMs which can be up to 8K in length. The 4K ROM 
H blocks in the VIC column in the last configuration (the game 
configuration) are the top 4K of the 8K ROM H block seen by 
the CPU. Ram, of course, refers to random access memory. 

Each memory map contains four columns. This is because the 
memory configuration differs according to the device accessing 
it and whether it is reading or writing. The column on the right 
is what the VIC chip sees when reading. The column on the left 
is what the CPU sees when writing. Both columns in the center 
are what the CPU sees when reading, but under different 
conditions. The VIC chip and the CPU share the same address 
and data busses, but on opposite phases of the clock cycle. 
Occasionally the VIC chip needs the busses longer than half a 
clock cycle. When this occurs, the VIC chip pulls line BA low. 
When the CPU sees that BA is low it runs for three clock cycles 
and then halts. During these three cycles the memory configu- 
ration is as described in the column marked R(-BA). At all other 
times it is as described in the column headed R(BA). Notice that 
this affects only the CPU reading the I/O block. During these 
three cycles the I/O block is unavailable and RAM is seen 
instead. Writing to the I/O block is still possible however. 

Some final notes: In compiling this information I have read out 
three PLAs and each had different numbers on them. In order 
to eliminate transcription errors, all the tables were generated 
directly by computer programs from a disk file containing the 
information from the PLA. The careful reader will spot differ- 
ences between the information presented here and that con- 
tained in the Commodore 64 Programmer's Reference Guide. 
All such differences were verified manually against the original 
data file created by reading out the PLA, which itself was 
verified against two other PLAs as noted above. 
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Inputs 


Commodore 64 PLA 


) 




10 CAS 


X 


x 


X 


X 


X 


X 


X 


X 


X 


X 


X 





X 


X 


X 


X 


X 


X 


X 


X 


— 


1 








c 






11 LORAM 


X 


X 


X 


X 


1 


X 


X 


1 


X 


X 


1 


X 


X 


X 


X 


1 


X 


X 


X 


1 


— 


X 


X 


X 


X X 






12 HIRAM 


X 


X 


1 


X 


1 


1 


X 







X 





X 


X 


X 


1 





1 


1 


1 


1 


— 


X 


X 


X 


X X 






13 CHAREN 


X 


X 


X 


X 


X 


1 


X 


1 




X 


1 


X 


X 


X 











X 


X 


X 


— 


X 


X 


X 


X X 






14 VA14 


X 


x 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


1 


1 


X 


X 


X 


X 


X 


X 


- 


X 


X 


X 


X X 






15 A15 


X 


1 


1 


1 


1 


1 


1 


1 






1 


1 


X 


X 


1 


1 


1 


1 


1 


1 


— 


X 





X 


1 


I 






16 A14 


X 


1 











1 


1 


1 






1 


1 


X 


X 


1 


1 


1 


1 


1 





— 


X 


1 





1 


I 






\7 A13 


X 


1 


1 





























X 


X 











1 


1 


1 


— 


X 


X 


1 









18 A12 


X 


X 


X 


X 


X 


1 


1 


1 






1 


1 


X 


X 


1 


1 


1 


X 


X 


X 


— 


X 


X 


X 


1 






19 BA 


X 


X 


X 


X 


X 


X 


X 


X 






1 


X 


X 


X 


X 


X 


X 


X 


X 


X 


— 


X 


X 


X 


X X 






110 AEC 


1 



































1 


1 




















— 


X 


X 


X 


X X 






111 R/W 


X 


X 


1 


X 


1 











1 




1 





X 


X 


1 


1 


1 


1 


1 


1 


— 


X 


X 


X 


X X 






112 EXROM 


1 


1 





1 





X 


1 


X 


X 




X 


X 





1 


X 


X 





X 





X 


- 


X 


1 


1 


1 1 


I 






113 GAME 














X 


X 





X 


X 





X 


X 


X 


1 


1 


1 





1 





1 


- 


X 















114 VA13 


1 


X 


x 


X 


X 


X 


X 


X 


X 


X 


X 


X 








X 


X 


X 


X 


X 


X 


— 


X 


X 


X 


X X 






115 VA12 


1 
1 


X 

1 


X 

1 


X 

1 


X 

1 


X 

1 


X 

1 


X 

1 


X 

1 


X 

1 


X 

1 


X 
X 


1 

1 


1 
1 


X 

1 


X 

1 


x 

1 


X 

1 


X 

1 


X 

1 





X 

1 


X 

1 


X 

1 


X X 

1 1 




Outputs 




FO CASRAM 






F1 BASIC 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 





1 


X 


X 


X 


X X 






F2 KERNAL 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 








X 


1 


X 


X 


X 


X X 






F3 CHAROM 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 

















X 


X 


X 


1 


X 


X 


X 


X X 






F4 GR/W 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 





X 


X 


X 


X 


X 


X 


X 


X 


1 


X 


X 


X 


X X 






F5 I/O 


X 


X 


X 


X 


X 




















X 


X 


X 


X 


X 


X 


X 


X 


X 


1 


X 


X 


X 


X X 






F6 ROM L 


X 


X 


X 








X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


1 


X 


X 


X 


X X 






F7 ROM H 











X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


1 


X 


X 


X 


X X 




GAI 
EXF 
CH> 


VIE 1 
?OM 1 

^REN 1 














GAME 1 
EXROM 1 
CHAREN 






HIR 
LOF 


AM 1 
3AM 1 














HIRAM 1 
LORAM 1 








CPU 


VIC 
R 




CPU 


VIC 
R 




w 


R(BA) 




R(BA) 


W 


R(BA) 


R(BA) 




$F000 - FFFF 


ram 


KERNL 


(• 


CERNL 




ram 


$F000 - FFFF 




ram 


KERNL 


KERNL 


ram 




$E000 - EFFF 


ram 


KERNL 


h 


(ERNL 




ram 




$E000 - EFFF 




ram 


KERNL 


KERNL 


ram 




$D000 - DFFF 


I/O 


ram 




I/O 




ram 




$D000 - DFFF 


1 


ram 


CHARA 


; CHARA 


ram 




$C000 - CFFF 


ram 


ram 




ram 




ram 




$C000 - CFFF 




ram 


ram 


ram 


ram 




$B000 - BFFF 


ram 


BASIC 


I 


3ASIC 




ram 




$B000 - BFFF 




ram 


BASIC 


BASIC 


ram 




$A000 - AFFF 


ram 


BASIC 


I 


BASIC 




ram 




$A000 - AFFF 




ram 


BASIC 


BASIC 


ram 




$9000 - 9FFF 


ram 


ram 




ram 


C 


HARA 




$9000 - 9FFF 




ram 


ram 


ram 


CHARA 




$8000 - 8FFF 


ram 


ram 




ram 




ram 




$8000 - 8FFF 




ram 


ram 


ram 


ram 




$7000 - 7FFF 


ram 


ram 




ram 




ram 




$7000 - 7FFF 




ram 


ram 


ram 


ram 




$6000 - 6FFF 


ram 


ram 




ram 




ram 




$6000 - 6FFF 




ram 


ram 


ram 


ram 




$5000 - 5FFF 


ram 


ram 




ram 




ram 




$5000 - 5FFF 




ram 


ram 


ram 


ram 




$4000 - 4FFF 


ram 


ram 




ram 




ram 




$4000 - 4FFF 




ram 


ram 


ram 


ram 




$3000 - 3FFF 


ram 


ram 




ram 




ram 




$3000 - 3FFF 




ram 


ram 


ram 


ram 




$2000 - 2FFF 


ram 


ram 




ram 




ram 




$2000 - 2FFF 




ram 


ram 


ram 


ram 




$1000 - 1FFF 


ram 


ram 




ram 


c 


HARA 




$1000 -1FFF 




ram 


ram 


ram 


CHARA 




$0000 - OFFF 


ram 


ram 




ram 




ram 




$0000 - OFFF 




ram 


ram 


ram 


ram 
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GAME 1 










GAME 1 










EXROM 
CHAREN 1 
HIRAM 1 
LORAM 1 










EXROM 
CHAREN 
HIRAM 1 
LORAM 1 










CPU 




VIC 
R 




CPU 


VIC 
R 




W R(BA) 


R(BA) 


W R(BA) 


R(BA) 




$F000 - FFFF 


ram KERNL 


KERNL 


ram 


$F000 - FFFF 


ram KERNL 


KERNL 


ram 




$E000 - EFFF 


ram KERNL 


KERNL 


ram 




$E000 - EFFF 


ram KERNL 


KERNL 


ram 




$D000 - DFFF 


I/O ram 


I/O 


ram 




$D000 - DFFF 


ram CHARA 


CHARA 


ram 




$C000 - CFFF 


ram ram 


ram 


ram 




$C000 - CFFF 


ram ram 


ram 


ram 




$B000 - BFFF 


ram BASIC 


BASIC 


ram 




$B000 - BFFF 


ram BASIC 


BASIC 


ram 




$A000 - AFFF 


ram BASIC 


BASIC 


ram 




$A000 - AFFF 


ram BASIC 


BASIC 


ram 




$9000 - 9FFF 


ram ROM L 


ROML 


CHARA 




$9000 - 9FFF 


ram ROM L 


ROML 


CHARA 




$8000 - 8FFF 


ram ROM L 


ROML 


ram 




$8000 - 8FFF 


ram ROM L 


ROML 


ram 




$7000 - 7FFF 


ram ram 


ram 


ram 




$7000 - 7FFF 


ram ram 


ram 


ram 




$6000 - 6FFF 


ram ram 


ram 


ram 




$6000 - 6FFF 


ram ram 


ram 


ram 




$5000 - 5FFF 


ram ram 


ram 


ram 




$5000 - 5FFF 


ram ram 


ram 


ram 




$4000 - 4FFF 


ram ram 


ram 


ram 




$4000 - 4FFF 


ram ram 


ram 


ram 




$3000 - 3FFF 


ram ram 


ram 


ram 




$3000 - 3FFF 


ram ram 


ram 


ram 




$2000 - 2FFF 


ram ram 


ram 


ram 




$2000 - 2FFF 


ram ram 


ram 


ram 




$1000 -1FFF 


ram ram 


ram 


CHARA 




$1000 -1FFF 


ram ram 


ram 


CHARA 




$0000 - OFFF 


ram ram 


ram 


ram 




$0000 - OFFF 


ram ram 


ram 


ram 






GAME 










GAME 










EXROM 










EXROM 










CHAREN 1 










CHAREN 










HIRAM 1 










HIRAM 1 










LORAM 1 










LORAM 1 










CPU 


VIC 
R 




CPU 


VIC 
R 




W R(BA) 


R(BA) 


W R(BA) 


R(BA) 




$F000 - FFFF 


ram KERNL 


KERNL 


ram 


$F000 - FFFF 


ram KERNL 


KERNL 


ram 




$E000 - EFFF 


ram KERNL 


KERNL 


ram 




$E000-EFFF 


ram KERNL 


KERNL 


ram 




$D000 - DFFF 


I/O ram 


I/O 


ram 




$D000-DFFF 


ram CHARA 


CHARA 


ram 




$C000 - CFFF 


ram ram 


ram 


ram 




$C000-CFFF 


ram ram 


ram 


ram 




$B000 - BFFF 


ram ROM H 


ROMH 


ram 




$B000-BFFF 


ram ROM H 


ROMH 


ram 




$A000 - AFFF 


ram ROM H 


ROMH 


ram 




$A000-AFFF 


ram ROM H 


ROMH 


ram 




$9000 - 9FFF 


ram ROM L 


ROML 


CHARA 




$9000 - 9FFF 


ram ROM L 


ROML 


CHARA 




$8000 - 8FFF 


ram ROM L 


ROML 


ram 




$8000 - 8FFF 


ram ROM L 


ROML 


ram 




$7000 - 7FFF 


ram ram 


ram 


ram 




$7000 - 7FFF 


ram ram 


ram 


ram 




$6000 - 6FFF 


ram ram 


ram 


ram 




$6000 - 6FFF 


ram ram 


ram 


ram 




$5000 - 5FFF 


ram ram 


ram 


ram 




$5000 - 5FFF 


ram ram 


ram 


ram 




$4000 - 4FFF 


ram ram 


ram 


ram 




$4000 - 4FFF 


ram ram 


ram 


ram 




$3000 - 3FFF 


ram ram 


ram 


ram 




$3000 - 3FFF 


ram ram 


ram 


ram 




$2000 - 2FFF 


ram ram 


ram 


ram 




$2000 - 2FFF 


ram ram 


ram 


ram 




$1000 -1FFF 


ram ram 


ram 


CHARA 




$1000 -1FFF 


ram ram 


ram 


CHARA 




$0000 - OFFF 


ram ram 


ram 


ram 




$0000 - OFFF 


ram ram 


ram 


ram 




Tn# IFOnSOCTOf 






S3 




Volume 


> 6, Issue OS 







GAME 








EXROM 








CHAREN 1 








HIRAM 1 








LORAM 








CPU 


VIC 
R 


W R(BA) 


R(BA) 


$F000 - FFFF 


ram KERNL 


KERNL 


ram 


$E000 - EFFF 


ram KERNL 


KERNL 


ram 


$D000 - DFFF 


I/O ram 


I/O 


ram 


$C000 - CFFF 


ram ram 


ram 


ram 


SBOOO - BFFF 


ram ROM H 


ROMH 


ram 


SAOOO - AFFF 


ram ROM H 


ROMH 


ram 


$9000 - 9FFF 


ram ram 


ram 


CHARA 


$8000 - 8FFF 


ram ram 


ram 


ram 


$7000 - 7FFF 


ram ram 


ram 


ram 


$6000 - 6FFF 


ram ram 


ram 


ram 


$5000 - 5FFF 


ram ram 


ram 


ram 


$4000 -4FFF 


ram ram 


ram 


ram 


$3000 -3FFF 


ram ram 


ram 


ram 


$2000 -2FFF 


ram ram 


ram 


ram 


$1000 -1FFF 


ram ram 


ram 


CHARA 


$0000 - OFFF 


ram ram 


ram 


ram 





GAME 




* 




EXROM 








CHAREN 








HIRAM 1 








LORAM 








CPU 


VIC 
R 


W R(BA) 


R(BA) 


$F000 - FFFF 


ram KERNL 


KERNL 


ram 


$E0O0 - EFFF 


ram KERNL 


KERNL 


ram 


$D000 - DFFF 


ram CHARA 


CHARA 


ram 


$C000 - CFFF 


ram ram 


ram 


ram 


$B000 - BFFF 


ram ROM H 


ROMH 


ram 


$A000 - AFFF 


ram ROM H 


ROMH 


ram 


$9000 - 9FFF 


ram ram 


ram 


CHARA 


$8000 - 8FFF 


ram ram 


ram 


ram 


$7000 - 7FFF 


ram ram 


ram 


ram 


$6000 - 6FFF 


ram ram 


ram 


ram 


$5000 - 5FFF 


ram ram 


ram 


ram 


$4000 - 4FFF 


ram ram 


ram 


ram 


$3000 - 3FFF 


ram ram 


ram 


ram 


$2000 - 2FFF 


ram . ram 


ram 


ram 


$1000 -1FFF 


ram ram 


ram 


CHARA 


$0000 - OFFF 


ram ram 


ram 


ram 





GAME 1 








EXROM x 








CHAREN 1 








HIRAM 1 








LORAM 








CPU 


VIC 
R 


W R(BA) 


R(BA) 


$F000 - FFFF 


ram KERNL 


KERNL 


ram 


$E000 - EFFF 


ram KERNL 


KERNL 


ram 


$D000 - DFFF 


I/O ram 


I/O 


ram 


$C000 - CFFF 


ram ram 


ram 


ram 


$B000 - BFFF 


ram- ram 


ram 


ram 


SAOOO - AFFF 


ram ram 


ram 


ram 


$9000 - 9FFF 


ram ram 


ram 


CHARA 


$8000 - 8FFF 


ram ram 


ram 


ram 


$7000 - 7FFF 


ram ram 


ram 


ram 


$6000 - 6FFF 


ram ram 


ram 


ram 


$5000 - 5FFF 


ram ram 


ram 


ram 


$4000 - 4FFF 


ram ram 


ram 


ram 


$3000 - 3FFF 


ram ram 


ram 


ram 


$2000 - 2FFF 


ram ram 


ram 


ram 


$1000 -1FFF 


ram ram 


ram 


CHARA 


$0000 - OFFF 


ram ram 


ram 


ram 





GAME 1 








EXROM x 








CHAREN 








HIRAM 1 








LORAM 








CPU 


VIC 
R 


W R(BA) 


R(BA) 


$F000 - FFFF 


ram KERNL 


KERNL 


ram 


$E000 - EFFF 


ram KERNL 


KERNL 


ram 


$D000 - DFFF 


ram CHARA 


CHARA 


ram 


$C000 - CFFF 


ram ram 


ram 


ram 


$B000 - BFFF 


ram ram 


ram 


ram 


$A000 - AFFF 


ram ram 


ram 


ram 


$9000 - 9FFF 


ram ram 


ram 


CHARA 


$8000 - 8FFF 


ram ram 


ram 


ram 


$7000 - 7FFF 


ram ram 


ram 


ram 


$6000 - 6FFF 


ram ram 


ram 


ram 


$5000 - 5FFF 


ram ram 


ram 


ram 


$4000 - 4FFF 


ram ram 


ram 


ram 


$3000 - 3FFF 


ram ram 


ram 


ram 


$2000 - 2FFF 


ram ram 


ram 


ram 


$1000 -1FFF 


ram ram 


ram 


CHARA 


$0000 - OFFF 


ram ram 


ram 


ram 
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GAME 


1 










GAME 1 










EXROM 


x 










EXROM x 










CHAREN 


I 1 1 










CHAREN 










HIRAM 













HIRAM 










LORAM 


1 1 










LORAM 1 










CPU 


VIC 

R 




CPU 


VIC 
R 




w 


R(B£) 


R(BA) 


W R(BA) 


R(BA) 




$F000 - FFFF 


ram 


ram 


ram 


ram 


$F000 - FFFF 


ram ram 


ram 


ram 




$E000 - EFFF 


ram 


ram 


ram 


ram 




$E000 - EFFF 


ram ram 


ram 


ram 




$D000 - DFFF 


I/O 


ram 


I/O 


ram 




$D000 - DFFF 


ram CHARA 


CHARA 


ram 




$C000 - CFFF 


ram 


ram 


ram 


ram 




$C000 - CFFF 


ram ram 


ram 


ram 




$B000 - BFFF 


ram 


ram 


ram 


ram 




$B000 - BFFF 


ram ram 


ram 


ram 




$A000 - AFFF 


ram 


ram 


ram 


ram 




$A000 - AFFF 


ram ram 


ram 


ram 




$9000 - 9FFF 


ram 


ram 


ram 


CHARA 




$9000 - 9FFF 


ram ram 


ram 


CHARA 




$8000 - 8FFF 


ram 


ram 


ram 


ram 




$8000 - 8FFF 


ram ram 


ram 


ram 




$7000 - 7FFF 


ram 


ram 


ram 


ram 




$7000 - 7FFF 


ram ram 


ram 


ram 




$6000 - 6FFF 


ram 


ram 


ram 


ram 




$6000 - 6FFF 


ram ram 


ram 


ram 




$5000 - 5FFF 


ram 


ram 


ram 


ram 




$5000 - 5FFF 


ram ram 


ram 


ram 




$4000 - 4FFF 


ram 


ram 


ram 


ram 




$4000 - 4FFF 


ram ram 


ram 


ram 




$3000 - 3FFF 


ram 


ram 


ram 


ram 




$3000 - 3FFF 


ram ram 


ram 


ram 




$2000 - 2FFF 


ram 


ram 


ram 


ram 




$2000 - 2FFF 


ram ram 


ram 


ram 




$1000 -1FFF 


ram 


ram 


ram 


CHARA 




$1000 -1FFF 


ram ram 


ram 


CHARA 




$0000 - OFFF 


ram 


ram 


ram 


ram 




$0000 - OFFF 


ram ram 


ram 


ram 






GAME 


1 










GAME 










EXROM 


x 










EXROM 1 










CHAREN 


x x 










CHAREN x 










HIRAM 













HIRAM x 




* 






LORAM 


1 










LORAM x 








1 


CPU 


VIC 
R 




CPU 


VIC 
R 




W 


R(BA) 


R(BA) 


W R(BA) 


R(BA) 




$F000 - FFFF 


ram 


ram 


ram 


ram 


$F000 - FFFF 


ROM H ROM H 


ROMH 


ROMH 




$E000 - EFFF 


ram 


ram 


ram 


ram 




$E000 - EFFF 


ROM H ROM H 


ROMH 


ram 




$D000 - DFFF 


ram 


ram 


ram 


ram 




$D000 - DFFF 


I/O ram 


I/O 


ram 




$C000 - CFFF 


ram 


ram 


ram 


ram 




$C000 - CFFF 






ram 




$B000 - BFFF 


ram 


ram 


ram 


ram 




$B000 - BFFF 






ROMH 




$A000 - AFFF 


ram 


ram 


ram 


ram 




$A000 - AFFF 






ram 




$9000 - 9FFF 


ram 


ram 


ram 


CHARA 




$9000 - 9FFF 


ROM L ROM L 


ROML 


ram 




$8000 - 8FFF 


ram 


ram 


ram 


ram 




$8000 - 8FFF 


ROM L ROM L 


ROML 


ram 




$7000 - 7FFF 


ram 


ram 


ram 


ram 




$7000 - 7FFF 






ROMH 




$6000 - 6FFF 


ram 


ram 


ram 


ram 




$6000 - 6FFF 






ram 




$5000 - 5FFF 


ram 


ram 


ram 


ram 




$5000 - 5FFF 






ram 




$4000 - 4FFF 


ram 


ram 


ram 


ram 




$4000 - 4FFF 






ram 




$3000 - 3FFF 


ram 


ram 


ram 


ram 




$3000 - 3FFF 






ROMH 




$2000 - 2FFF 


ram 


ram 


ram 


ram 




$2000 - 2FFF 






ram 




$1000 -1FFF 


ram 


ram 


ram 


CHARA 




$1000 -1FFF 






ram 




I $0000 - OFFF 


ram 


ram 


ram 


ram 




$0000 - OFFF 


ram ram 


ram 


ram 
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Jim Op Mne Mode 


1st 2nd Comment 


Jim Op Mne Mode 


1st 2nd 


Comment 




SAX cb*acm *$nn 


(and) (cmp)xr = (ar&xr)- # $nn:cmp flags 


ASO 03 slo 

07 slo 
Of slo 
13 slo 
17 slo 
lb slo 
If slo 


(Szp.x) 

Szp 

Saddr 

($zp),y 

Szp.x 

Saddr.y 

Saddr.x 


asl ora 
asl ora 
asl ora 
asl ora 
asl ora 

asl ora 

asl ora 


Shift Left into carry: Ora 


ASO Ob*ann # Snn 


and Same as 29: and *$nn 
Butc=l if bit 7=1 


RLA 2b*ann *$nn 


and duplicate of Ob 


ARR 6b*arr *$nn 


and (ror) And: Rotate carry Right 

bit 7 = shift out of c:c = shift out of bit 7 

v- shift out of bit 7 or bit 6 
z^ 1 if result = 


LSE 43 sre 

47 sre 
4f sre 
53 sre 
57 sre 
5b sre 
5f sre 


(Szp.x) 

Szp 

Saddr 

($zp).y 

Szp.x 

Saddr.y 

Saddr,x 


Isr eor 
Isr eor 
Isr eor 
Isr eor 
Isr eor 
Isr eor 
Isr eor 


Shift Right into carry 


: Eor 


ALR 4b asr *$nn 


and Isr And, Shift Right into carry 


AXS 83 axs (Szp.x) 
87 axs $zp 
8f axs Saddr 
93* axs ($zp),y 
97 axs $zp,y 

MKA9f*axs Saddr.y 


(and) store M = ar&xr:ar,xr, flags unchanged 

(and) store 

(and) store 

(and) store M = ar&xr&$zz 

(and) store 

(and) store M = ar&xr&$zz 


MKX9e«xas 


Saddr.y 


(and) store 


! M=xr&$zz 




9c yas 


Saddr.x 


(and) store 


1 M=yr&$zz 




DCMc3 dcm ($zp,x) 
c7 dcm $zp 
cf dcm Saddr 
d3 dcm (Szp).y 
d7 dcm Szp.y 
db dcm Saddr.y 
df dcm Saddr, x 


dec cmp cmp flags 

dec cmp 

dec cmp 

dec cmp 

dec cmp 

dec cmp 

dec cmp 


CIM 02 dth 

12 dth 
22 dth 
32 dth 
42 dth 
52 dth 
62 dth 
72 dth 
92 dth 
b2 dth 
d2 dth 
f2 dth 






death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 
death-lockup 




INS e3 isb (Szp.x) 
e7 isb $zp 
ef isb Saddr 
f3 isb (Szp).y 
f7 isb Szp.x 
fb isb Saddr.y 
ff isb Saddr.x 


inc sbc 
inc sbc 
inc sbc 
inc sbc 
inc sbc 
inc sbc 
inc sbc 


NOP la nop 

3a nop 
5a nop 
7a nop 
da nop 
fa nop 






pc+1 
pc + 1 
pc+1 
pc+1 
pc+ 1 

pc + 1 




bb lsa Saddr.y 


(txs) store sp = xr = ar = M&$F6:AND flags 


XAA 9b*lss Saddr.y 


(txs) store sp = ar&xr: M = ar&xr&$zz 


LAX a3 Itx (Szp.x) 
a7 Itx Szp 
af Itx Saddr 
b3 Itx (Szp).y 
b7 Itx Szp.y 
bf Itx Saddr.y 


Ida tax xr = ar = M 

Ida tax 

Ida tax 

Ida tax 

Ida tax 

Ida tax 


SKB 04 skb 

14 skb 
34 skb 
44 skb 
54 skb 
64 skb 
74 skb 
80 skb 
82 skb 
89*skb 
c2 skb 
d4 skb 
e2 skb 
f4 skb 


*$nn 
# $nn 
# $nn 
*$nn 
*Snn 
*$nn 
*Snn 
*$nn 
# $nn 
*$nn 
*$nn 
*$nn 
*$nn 
*$nn 




pc + 2 
pc + 2 
pc + 2 
pc + 2 
pc + 2 
pc+2 
pc + 2 
pc + 2 
pc+2 
pc + 2 
pc + 2 
pc + 2 
pc+2 
pc + 2 




XAA 8b*oxa *$nn 


(ora) (and) ar = ar!$EE&xr& # $nn 


OAL ab oxx *$nn 


(ora) (and) (tax) xr = ar = ar!$EE«&xr& # $nn 


RLA 23 rln (Szp.x) 
27 rln Szp 
2f rln Saddr 
33 rln ($zp),y 
37 rln Szp.x 
3b rln Saddr.y 
3f rln Saddr.x 


rol and Rotate Left thru carry: aNd 

rol and 

rol and 

rol and 

rol and 

rol and 

rol and 


RRA 63 rrd (Szp.x) 
67 rrd Szp 
6f rrd Saddr 
73 rrd (Szp).y 
77 rrd Szp.x 
7b rrd Saddr.y 
7f rrd Saddr.x 


ror adc Rotate Right thru carry: aDc 

ror adc 

ror adc 

ror adc 

ror adc 

ror adc 

ror adc 


SKWOc skw 
lc skw 
3c skw 
5c skw 
7c skw 
dc skw 
fc skw 


Saddr 
Saddr 
Saddr 
Saddr 
Saddr 
Saddr 
Saddr 




pc + 3 
pc+3 
pc+3 

pc + 3 
pc + 3 
pc + 3 
pc + 3 




eb sbc *$nn 


sbc duplicate of standard e9 sbc *Snn 
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Undocumented 6500 Series Instructions (see V6 105 Page 59) - Noel Nyman, Seattle, WA 


Name/Operation 


Mode 


M.L. Form 


Op Bytes 


Name/Operation Mode M.L. Form 


Op Bytes 


AAX 

A&XtoM 
AND A with X 


Zero Page 
Zero Page,Y 
Pre-lndexed,X 
Post-Indexed,Y 

Absolute 


AAX $aa 
AAX $aa,Y 
AAX (Saa.X) 
AAX ($aa).Y 
AAX $aaaa 


87 
97 
83 
93 
8F 


2 
2 
2 
2 
2 


TEA (A&X&((>M)+ 1)) to M Absolute.Y TEA $aaaa.Y 
Increment the high byte of the address of M, AND with A AND X 


9F 3 


TEX (X&((>M)+ 1)) to M Absolute.Y TEX Saaaa.Y 
Increment the high byte of the address of M. AND with X 


9E 3 


AXM (A&X)-M to X Immediate AXM Imm 
AND A with X, subtract M, store in X 


CB 2 


DCP 

A-(DECM) 
Decrement M, 
Compare with A 


Zero Page 

Zero Page.X 

Pre-lndexed,X 

Post-Indexed.Y 

Absolute 

Absolute.X 

Absolute.Y 


DCP $aa 
DCP $aa,X 
DCP (Saa.X) 
DCP ($aa),Y 
DCP Saaaa 
DCP $aaaa,X 
DCP Saaaa.Y 


C7 
D7 
C3 
D3 
CF 
DF 
DB 


2 
2 
2 
2 
3 
3 
3 


RAM LSR(A&M)toA Immediate RAM Imm 
AND A with M, Shift right and store in A 


4B 2 


RBM ROR(A&M)toA Immediate RBM Imm 
AND A with M, Rotate right and store in A 


6B 2 


XMA AND X with M,(X<&M)&(AOR # $EE) to A Immediate XMA Imm 
OR A with # $EE, AND the two resulting bytes and store in A 


8B 2 


ISB 

A-(INCM)-CtoA,C 
Increment M, 
Subtract from A 


Zero Page 

Zero Page.X 

Pre-lndexed.X 

Post-Indexed.Y 

Absolute 

Absolute.X 

Absolute.Y 


ISB $aa 
ISB Saa.X 
ISB (Saa.X) 
ISB ($aa),Y 
ISB Saaaa 
ISB Saaaa.X 
ISB $aaaa,Y 


E7 
F7 
E3 
F3 
EF 
FF 
FB 


2 
2 
2 
2 
3 
3 
3 


TEY (Y&*$01) to M Absolute.X TEY Saaaa.X 
test bit in Y 


9C 3 


AMA (M&*$EE)OR(A&M&*$ll)toA Immediate AMA Imm 


AB 2 


LAS M to A, M to X. M to SP Absolute.Y LAS Saaaa.Y 
Store M in A. X. and SP 


BB 3 


LAX 

MtoA.MtoX 
Load A and X 


Zero Page 

Zero Page.Y 

Pre-lndexed.X 

Post-Indexed.Y 

Absolute 

Absolute.Y 


LAXSaa 
LAX Saa.Y 
LAX (Saa.X) 
LAX ($aa).Y 
LAX Saaaa 
LAX Saaaa.Y 


A7 
B7 
A3 
B3 
AF 
BF 


2 
2 
2 
2 
3 
3 


AXS (A&X) to SP. (A&X&*$01) to M Absolute.Y AXS Saaaa.Y 
AND A with X, store in SP, AND SP with *S01 , store in M 


9B 3 


NPAtoNPF Implied NPA 
Identical with NOP Implied NPB 

Implied NPC 
Implied NPD 
Implied NPE 
Implied NPF 


1A 1 

3A 1 
5A 1 
7A 1 
DA 1 
FA 1 


LAN 

(ROLM)&AtoA 

Rotate M left, 
AND with A 


Zero Page 

Zero Page.X 

Pre-Indexed.X 

Post-lndexed.Y 

Absolute 

Absolute.X 

Absolute.Y 

Immediate 


LANSaa 
LANSaa 
LAN (Saa.X) 
LAN (Saa).Y 
LAN Saaaa 
LAN Saaaa.X 
LAN Saaaa.Y 
LAN hum 


27 
37 
23 
33 
2F 
3F 
3B 
2B 


2 
2 
2 
2 
3 
3 
3 
2 


MNAtoMNN Implied MNA 
Add # $02 to PC Implied MNB 

Implied MNC 
Implied MND 
Implied MNE 
Implied MNF 
Implied MNG 
Implied MNH 
Implied MNI 
Implied MNJ 
Implied MNK 
Implied MNL 
Implied MNM 
Implied MNN 


04 2 
14 2 
34 2 
44 2 
54 2 
64 2 
74 2 
D4 2 
F4 2 
80 2 
82 2 
89 2 
C2 2 
E2 2 


RAD Zero Page 
(RORM) + A + C to A,C Zero Page,X . 
Rotate M right, Pre-Indexed,X 
Add with Carry Post-Indexed, Y 

Absolute 
Absolute.X 
Absolute.Y 


RAD Saa 
RAD Saa.X 
RAD (Saa.X) 
RAD (Saa).Y 
RAD Saaaa 
RAD Saaaa.X 
RAD Saaaa.Y 


67 
77 
63 
73 
6F 
7F 
7B 


2 
2 
2 
2 
3 
3 
3 


LOR 

(ASLM)OR A to A 
Shift M left, 
OR with A 


Zero Page 

Zero Page.X 

Pre-lndexed.X 

Post-Indexed.Y 

Absolute 

Absolute.X 

Absolute.Y 

Immediate 


LOR Saa 
LOR $aa,X 
LOR (Saa.X) 
LOR (Saa).Y 
LOR Saaaa 
LOR Saaaa.X 
LOR Saaaa.Y 
LOR imm 


07 
17 
03 
13 
OF 
IF 
IB 
OB 


2 
2 
2 
2 
3 
3 
3 
2 


DNA to DNG Implied DNA 
Add *$03 to PC Implied DNB 

Implied DNC 
Implied DND 
Implied DNE 
Implied DNF 
Implied DNG 


OC 3 
1C 3 
3C 3 
5C 3 
7C 3 
DC 3 
FC 3 


REO 

(LSRM)EORAtoA 
Shift M right, 
Exclusive OR with A 


Zero Page 

Zero Page.X 

Pre-lndexed.X 

Post-lndexed.Y 

Absolute 

Absolute.X 

Absolute.Y 


REO Saa 
REO Saa.X 
REO(Saa.X) 
REO ($aa) ( Y 
REO Saaaa 
REO Saaaa.X 
REO Saaaa.Y 


47 
57 
43 
53 
4F 
5F 
5B 


2 
2 
2 
2 
3 
3 
3 


SBC Immediate SBC Imm 
Executes identically with the documented SBC op-code SE9 


EB 2 


CRAtoCRL CRA 02 CRE 42 CRI 92 

Processor halts, must CRB 12 CRF 52 CRJ B2 
be hardware reset CRC 22 CRG 62 CRK D2 

CRD 32 CRH 72 CRL F2 
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6510 Opcodes 



Raymond Quirling 

Kerby, OR 



I ; .ditor's Note: These next two articles came in the same batch of 
mail. They're both about further investigation of the undocumented 
op-codes. They both have an intersection set of data, but each had 
other additional observations and examples that we didn V want to 
exclude. Besides, the two tables together make a good cross reference, 
considering there are no official specs. 



People who investigate undocumented opcodes deserve all the head- 
aches they get! 1 started with Joel Shepherd's list in Oct 83 Compute! 
and discovered a few weird things. Now Jim McLaughlin's list in 
Transactor Vol 6, Issue 3 has added a few more surprises. I thought I 
had done everything right but McLaughlin proved me wrong. But 
after 1 looked over the list again I still come up with a few disagree- 
ments with Jim's list. If he and I are both right it could mean that 
different 6510's have different responses to the undocumented codes. 

The attached listing (page 56) is marked with asterisks where I still 
disagree with Jim. The first column is Jim's mnemonics (as he listed 
the code). The 1st operation is performed on the address contents, 
then the second operation is performed on the new contents. Paren- 
thesis indicate that something non standard is going on. 

CB (acm) produces CMP flags: v (overflow) is not affected. OB (ann) and 
2B (ann) are identical and very similar to the normal AND opcode. 
The c flag is weird and I did not detect any shifting of the immediate 
location. The clock cycles Jim found also point to a simple AND 
function. 6B (arr) has some really weird flags! It is not safe to make 
assumptions about how the flags work. 8B (oxa) and AB (oxx) are both 
affected by the strange ORA *$EE. 89 (skb) is a two byte nop for me, 
but it does look out of place. 

BB (Isa) and 9B (lss) both affect the stack. Neither McLaughlin nor 
Shepherd indicated this, but Jim did note his difficulty in timing BB 
(probably impossible to do with the stack flitting about). But the most 
weird of all is the $zz store operation that affects five opcodes 93 (axs), 
9B (lss), 9C (yas), 9E (xas) and 9F (axs). Shepherd noted the effect on 
9F and 9E but was unable to determine the source of the operand for 
the mysterious AND operation. I figured it out after noting that my 
operand was different than Joel's and changed after switching to a 
different memory location to do the testing. After McLaughlin failed to 
note the effect 1 repeated it and discovered the surprising result when 
a page boundary is crossed. 

I counted 105 undocumented 6510 opcodes from pages 256 through 
259 of the "Commodore 64 Programmer's Reference Guide". They 
were tested one by one using Butterfield's Supermon. Flag changes 
were pure drudgery to document. Sorry, no 6502 comparisons. I 
retained the three character mnemonic description even though it 
isn't always informative with some of the more involved operations. I 
liked Jim's skip mnemonics but prefer dth (death) to his C1M (crash 
immediate). Pick your own personal mnemonics to taste! 



Are these codes safe to use? That is, can you write software using the 
new codes for use in other C-64's or with the new C-128? Some of the 
codes appear to be "accidental" rather than planned. These might 
change when going from one generation chip to another, or even from 
one 6510 to another. All the NOP's, SKWs and SKB's fit this category. 
Be safe! check it out! 

I have installed the new opcodes in a disassembler written in Basic. 
(No assembler yet.) It is available to anyone who sends a disk with 
return postage to R. Quiring, P.O. Box 135, Kerby, OR 97531. 



Legend 



ar.xr.yr 

sp 

c,z,n,v 

$zp 

*$nn 

$addr 



register contents 
stack pointer 
status flag bits 
zero page address 
immediate value 
absolute address 



M contents of address 
! logical OR 
& logical AND 
= equals, or 'is assigned to' 
* indicates disagreement 
with McLaughlin findings 



$zz explanation 

Used by 93 axs ($zp),y 
9b lss Saddr.y 
9c yas Saddr.x 
9e xas $addr,y 
9f axs Saddr.y 

$zz = msb(addr)+l 
memory = address mode: M = $zz&(opcode specific value) 
If a page is crossed then (surprise): 

memory = M * $100 + lsb(address mode) 

Example using 9b lss $addr,y: 



(ar&xr&$zz) 



ar xr 


sp addr yr addr.y 


memory 


zz 


M 


3f ff 


3f 500f 00 500f 


500f 


51 


11 


3f ff 


3f 500f fO SOff 


50ff 


51 


11 


3f ff 


3f 5010 fO 5100 


1100 


51 


11 


3f ff 


3f 500f fl 5100 


1100 


51 


11 


3f ff 


3f 5011 fO 5101 


1101 


51 


11 



Example using 93 axs($fc),y: OOfc = Of, 00fd = 50: 

ar xr sp addr yr ($zp),y memory zz M 

ff 3f xx 500f fO 500f 50ff 51 11 (ar&xr&$zz) 

ff 3f xx 500f fl 5100 1100 51 11 



The "death" opcodes are suspicious. What trickyness lies hidden 
therein? Are they interrupts or subroutine calls to an infinite loop? 
Maybe the kernal is dropped out? I looked for changes to memory, 
including the stack area, without success. 



Example using 9c yas $500f,*$f 1 : 

ar xr sp addr yr addr.x memory zz M 

ff fl xx 500f 3f 5100 1100 51 11 (yr&$zz) 
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The Undocumented 6500 
Series Instructions: A Summary 



Noel Nyman 
Seattle, WA 



Editors Note: To make this article complete, I felt it best to 
print Mr. Nyman s opening letter enclosed with the article, to act 
as a qualifier of the data presented today. After reading his 
letter, I am sure you will feel that Mr. Nyman is quite adequately 
qualified to reach the conclusions he has. As a note from us, 
Noel, thanks for thinking of us. Noel's table has been repro- 
duced on page 57 



Letter by Noel Nyman 



was very interested in "Hidden Op-Codes" by Jim McLaugh- The Complete Commodore Inner Space Anthology lists these 
lin in Transactor 6-03. op-codes with the same explanation. 



Several months ago I and other local programmers worked on 
these undocumented op-codes for Reflexive Software. The 
block editor in their Disk Maintenance package will optionally 
disassemble these op-codes. 

While doing the research, we tried most of the codes on several 
different 65XX series MPU's, including those in PETs, VIC- 
20's, C64's, Plus4, and an APPLE II. We tried to find 65XX's 
made by Synertek or Rockwell, the two licensees of MOS 
Technologies, without success. 

All of the op-codes we tested worked identically on all the 
MPU's we tried. 



The code will execute much as Shepherd describes, so long as 
the absolute memory location is in $03 page. 1 suspect that 
Shepherd and his predecessors have used the tape buffer for 
their test code. The $9E and $9F instructions actually use 
absolute indexed Y addressing and AND the respective regis- 
ters with the high byte of the memory ADDRESS plus one. 

For example, place the test code in the tape buffer area, $033C 
and use memory address $0350. The results are as Shepherd 
and the Anthology report, $04 will appear at location $0351 (Y 
is loaded with $01 for the test). Now change the memory 
address to $7050 and execute the code. A $71 appears at 
location $7051. 



Mr. McLaughlin's four 'peculiar' codes worked reliably for us 
on different MPU's, although they gave us different results than 
his. Readers can easily test the codes by using any ML monitor, 
storing the short programs on the following pages into memory 
using the 'M' command, then executing the code with either 
'Go' or 'Walk' and examining the registers and memory loca- 
tions afterwards. 

Mr. McLaughlin's chart lists two op-codes which he did not 
discuss, $9E and $9F. He lists as a reference the Joel Shepherd 
article "Extra Instructions" in the October 1983 COMPUTE! 
This was the first source we found that gives a function for 
these two codes. 

Shepherd states that the two codes AND registers in the 65XX 
with $04, although he didn't know where the $04 came from. 



The whole subject of undocumented op-codes is probably at 
best a curiosity. I've heard that some commercial programs use 
these codes for security, both West and Butterfield have said so. 
But I've yet to see an example. I'd be very interested in any 
differences from our list your readers encounter. 

I'm including a copy of the chart we made for Reflexive 
Software which we believe to be accurate. For your conven- 
ience, I've included a disk with the chart, this letter, and the 
attached pages in EasyScript files. 

Sincerely, Noel Nyman, Seattle WA 

Some example using Noel's notation follow on the next page. 
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A Few Examples 


From memory mode, store: 


$8B (X&M)&(AV*$EE) to A (Immediate) 


. A2 00 A9 OF 85 FC 8A A0 




. 01 BB FB 00 00 


AND X with M, AND the result with (A OR SEE) and store in A 






Before executing, use the 'Register' mode of the monitor to 


Sample code: 


change the Stack Pointer to $FF. After execution, check A, X 


CLC 


and the Stack Pointer. 


LDA *$00 




LDX *$FF 




XAA *$FF 


$EB A-M to A (Immediate) 


BRK 






Subtract M from A and store in A. This executes identically with 


From memory mode, store: 


the documented SBC code $E9 


. 18 A9 00 A2 FF 8B FF 00 


Sample code: 




SEC 


After executing, examine the A register. 


LDA *$80 




SBD # $01 




BRK 


$9B (A&X)toSP (A&X&*$01)toM (Absolute, Y) 






From memory mode store: 


AND A with X and store in Stack Pointer. AND Stack Pointer 




with *01 and store in M. 


. 38 A9 80 EB 01 00 


Sample code: 


After executing code, examine A. 


CLC 




LDA *$0F 




LDA *$07 


$9F (A&X&((>M) + 1 ) to M (Absolute.Y) 


LDY *$01 




XAA $00FB,Y 


increment the high byte of the address of M, AND with A AND 


BRK 


X, store in M. 


From memory mode store: 


Sample code: 




LDA *$FF 


. 18 A9 OF A2 07 A0 01 9B 


LDX »$FF 


. FB 00 00 


LDY *$01 




MKA$7050,Y 


Before executing code, use the 'Register' mode of the monitor 


BRK 


to change the Stack Pointer to $FF and location S00FC to $00. 




After execution, check the Stack pointer and SOOFC. 


From memory mode, store: 




. A9 FF A2 FF A0 01 9F 50 


$BB MtoA, MtoX, MtoSP (Absolute.Y) 


. 70 00 


Store M in A, X, and SP 


After executing, examine memory location $7051. If you 




change the $70 to $30 you'll duplicate the code as described by 


Sample code: 


Shepherd. 


LDX *$00 




LDA *$0F 




STA $FC 


$9E (X&((>M) + 1 ) to M (Absolute.Y) 


TXA 




LDY *$01 


Increment the high byte of the address of M, AND with X, store 


LAS $00FB,Y 


in M. 


BRK 






To test, use the sample code for $9F and change the op-code to 




$9E. 
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A Computer Rolltop Stand 




Mark Jordan 
Ligonier, IN 



Until I built this rolltop computer stand, I was like most of the 
other computer people I know — disorganized. I had my black 
and white TV "monitor" mounted on a couple of thick books, 
sitting behind my 64, my disk drive to the left. Books, maga- 
zines, disks and other hi-tech refuse were strewn about. This 
provision worked until I brought home a printer. I shoved my 
disk drive over thisaway, moved my TV over thataway, and 
dropped my printer down on the only bare acreage I could find. 
A complex array of cords and wires were then tied with little 
twistee things and carefully positioned behind the desk where 
everything was sitting to allow space for my paper to snake 
through. I sat down to compute. 

It was too crowded. Reference books were on the floor, opened. 
Disks were propped between TV and disk drive where mag- 
netic fields are strongest. Demonstrating the printer to my 
technologically-unsophisticated wife was embarassing: the pa- 
per kept tearing en route to the printer. This put me in a 
snapping bad mood. 

I decided I must build a desktop stand to put some order in my 
life. The rolltop model depicted here is the result. The stand 
itself does wonders for my desktop organization but what really 
makes this piece a winner is the rolltop design. I now am a 
zealot proclaiming the virtues of having a two-tiered, rolltop 
computer workplace. 

You don't have to be a carpenter or fine woodworker to build 
one. Basically the project consists of five parts. Only two are 
tricky: routing a groove for the tambour (the sliding part) to 
slide in and building the tambour itself. And even these two 
aren't loo tricky. 

The first order of business is to buy your wood. The only 
problem is, I can't tell you the exact dimensions because you 
are going to customize this stand to fit your workspace. But you 
can easily figure what lumber you'll need by performing the 
following simple calculations. Please refer to the exploded 
drawing (figure 1) throughout. 



.Not only order, but the appearance 
of order even if there is none- 



First, to simplify matters and to save you time and money, all 
the lumber in the project will be common stock. The sides will 
be two by eights, the brace a two by four, the top a twelve inch 
wide shelf piece, and the slats three-eights by three-quarter 
inch moldings. 

To figure the length of the brace (C), simply subtract four inches 
from the top's length. 

Finally, to determine the number and length of slats you'll need 
for the tambour, perform these calculations. Take half of the 
sides' length and add two inches. Now divide this number by 
.75. The result equals the number of slats you'll need since 
each slat will be three-quarters inch wide. The length of the 
slats will simply be the length of the brace plus three-fourths 
inch. 

- 

You may have to do some asking to find out just what is 
available for your slats. Be sure to ask about window and door 
moldings and lattice. If your yard doesn't carry anything that's 
three-eights inch thick by three-quarters inch wide, you can 
simply readjust your calculations for how many pieces you'll 
need and buy whatever widths they have, don't buy any pieces 
wider than one inch because you'll have difficulty with them 
negotiating the curve when they are sliding. Feel free to use as 
narrow of stock as they sell. 

The next order of business is to buy (or scrounge) a piece of 
fabric to glue your tambour to. It needs to be tough material 
(denim is good) and it needs to be as big as your finished 
tambour will be. 

You are now ready to start building. Cut all pieces to the proper 
length. Now refer to figure 1 and notice that the sides begin 
sloping on the top edge midway along its length (see point 1). 
Mark that spot on your piece. Next note point 2 on figure 1 . It is 
located three inches up from the bottom of the front of the side 
piece. Mark this on your sides and then use a straightedge to 
connect points 1 and 2 and cut them along this line. 



TTw Tronsoctof 



61 



Volume 6, Issue 05 



The curve is not official science. If you have good sanding 
equipment (like a belt or disk sander), then you might just sand 
a gentle curve. Lacking one, you could nibble away at the sharp 
corner first with a saw until you get it to the hand-sandable 
stage. Anyway, you need to end up with a nice flowing curve. 
And, you need to make both sides identical. So sand the 
finishing touches with the two pieces clamped together. 

The tambour groove needs to be done next. You need a router 
unless you like chiseling. If you have a router with an adjusta- 
ble guide, use it to make the groove. Lacking a good guide, 
make a template for the router to ride against and clamp it to 
the side piece while routing. 

A word of caution here. Routing is to woodworking what the 
GO and RUN commands are to programming. Things happen 
fast and sometimes, stuff gets messed up. That's why smart 
programmers save their work before a Go or RUN and that's 
why smart woodworkers only take a little wood at a time when 
they rout. In fact, they first do a dry run, checking to see exactly 
where the bit will byte (sorry, I'm getting as sick of those puns 
as you are but you have to admit, it really fit there). 

The depth and width of the groove are recorded in figure 1 but 
I'll repeat them here: one-half inch by one-half inch. This will 
allow for just enough slop in your tambour for it to slide easily. 

Now, on to the top. Cut it to size and it's done. 

Now, on to the brace. Cut it to size and it's done. 

Now, on to the tambour. Cut all the slats to size and lay them 
together tightly on a large sheet of scrap plywood or anything 
flat. Next tack down a couple of scrap wood pieces to keep them 
tight and square. Get some Elmer's Glue-All or other wood/ 
fabric glue, pour it all over the slats, rub it around with your 
fingers until the slats are well covered, and take your piece of 
fabric and lay it onto this gooey surface. Press it down until you 
are sure the fabric has made full contact. Keep pressing until 
the fabric stays put (about fifteen minutes). 

Let the tambour dry for a day. 

Assembly time. Stand the sides on edge and set the top on it. 
Position the sides so that you allow a one-inch overhang of the 
top to the sides. Square everything up, then carefully remove 
the top and apply glue to the top edge of the side pieces. 
Carefully replace the top, re-square everything and either 
screw or nail the top in place. For looks, if you screw it down, 
be sure to countersink the screws so that you can cover them 
later with dowels or putty. 

Now lay a bead of Elmer's on the top edge of the back brace and 
slip it up between the sides and under the top. It will be flush 
with the back of the top and sides (see figure 2). Nail or screw it 
from the top. 



Finally, take your tambour and guide it up into the open groove 
from the bottom of the sides at the front and slide it ail the way 
up and back. You will find it extends out about an inch from the 
top piece. If you wish, you can fashion a handle to pull the 
tambour with (see finished drawing), or you can just pull on the 
tambour itself. A handle is nothing more than a piece of 
molding glued to the bottom slat in the tambour. 

Except for the finished work (sanding, staining, varnishing, 
etc.) you are done. Before doing any of that dreary stuff, hustle 
your new computer addition into the house and set it on your 
desk. Put everything the way you want it. Instant organization. 

Now for the clincher. Pull down the tambour and, Eureka! 
everything is hidden. Your desk looks neat. All disks, books, 
Coke cans— everything— is hidden beneath that wonderful 
sliding front. 

Well, it just goes to show you, there are some bargains left in 
life. You built this stand to organize your work station, and you 
got not only order, but also, the appearance of order even 
when there is none. And you got it all for only a few hours 
labor. Now that's what I call a good deal. 




Mails or Screws 



Figure 2 




The Finished Rolltop 
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Superkey 



Andrew Walduck 
Orillia, Ontario 



A Homebrew External Keypad 



If you've ever used a PET computer you know how nice it is to have a 
numeric keypad at your beck and call. You can blitz through data 
statements, whiz through number crunching and blast through line 
numbers. Now you can have this for your 64 and more. Superkey 
adds 1 6 new keys to your 64 that repeat, are redefinable and available 
for your use in either program or direct modes, and the best part about 
it is that it will cost you under $30. 

Superkey Hardware 



Superkey is designed around 1 major integrated circuit, a 741 54 TTL 4 
line to 16 line decoder. What a 74154 does is take the 4-bit binary 
number on its inputs (coming from the joystick port) and makes the 
corresponding output low and keeps all other outputs high. If the 
switch on that line is closed, the low signal is applied to the input of 
the joystick port where the software can tell if that key is pressed. 



Superkey Software 



Suggestions 

To change the keycodes that Superkey prints, change the data state- 
ments beside the rem statements that tell you the key number, to the 
ASCO value of the character you would like printed when that key is 
pressed. 

One setup that I use quite frequently for entering data statements is a 
keypad with the numbers to 9, a return key, a " d " key , a shifted " 
a " , the delete key, a comma key, and the shift-return key. To do this 
merely, redefine the various keys on the keypad. 

Another setup that I use regularly is one with the cursor keys set up in 
a diamond pattern with the home key in the center. 

If you have any suggestions, problems or ideas regarding Superkey 
please write me. Andrew Walduck, 441 Barrie Rd *52, Orillia, On- 
tario, L3V 6T9 



The Superkey software is tied into the IRQ vector so that it is operated 
60 times every second. The first thing it does is see if the keyboard 
buffer is full. If it is, it jumps to the normal interrupt routine. If not, the 
software sequentially writes the numbers from to 15 into the second 
joystick port register, reading the status of the 4th bit each time. If it is 
low, it means that a key is pressed and the software then stores the 

correct character in the keyboard buffer. 
Building Superkey 



To build Superkey you will need the following parts 

1 74154 4 line to 16 line decoder 

1 16-key keypad (jameco part* k— 19 is good) 

1 d-9 socket (joystick port socket) 

1 24 pin ic socket 

miscellanous items 

wire, solder, blank printed circuit board 



After constructing Superkey according to the schematic, double check 
the wiring to make sure that it is correct and then plug it into joystick 
port 2 and turn the computer on. If the computer doesn't power up in 
the usual fashion, check your wiring again. If all is ok so far, press and 
release all of the 16 keys individually. None of them should have any 
effect on the screen. If any do, once again check the wiring of the 
circuit. 

Type in and run the following program (don't forget to save it). If no 
error message is printed, make sure the keypad is plugged into 
joystick port 2 and enter: 

SYS 49152 

to enable Superkey. Now pressing the keys on the keypad should 
have an effect on the screen (ie " " on the keypad should print on 
the screen). If something appears wrong, recheck the program and the 
wiring of the keypad. To disable Superkey enter: 

SYS 49155 



Editor's Note: You may not end up building Andrew's keypad, but 
the program shows how you would service the joystick port in 
machine language should you ever need to. 
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Superkey Basic 

10 rem* superkey * 


Loader 






Gl 










CJ 


20 rem* software driver for ext. keypad 










CJ 


30: 










BA 


40 fori = 491 52to49266:readda:ck = ck + da:pokei,da:nexti:fori = 


49267to49281:readda 




HN 


50 pokei,da:nexti:ifck<>1 41 90thenprint " error in data statements " :end 




IG 


60 print " superkey now in memory $c000 to $c081 " 


:print H 


sys 491 52 to activate" 




FH 


70 print " sys 491 55 to deactivate " :end 










EM 


80: 




LK 


1 1 60 rem* key definitions follow * 




FO 


1000 data 76, 18,192,120,173,112,192,141 




OK 


1200 data 48: rem key#0 




FN 


1010data 20, 3,173,113,192,141, 21, 3 




PL 


1210data49:rem key#1 




AP 


1020 data 88, 96,120,173, 20, 3,141,112 




LK 


1220data50:remkey#2 




Fl 


1030 data 192, 173, 21, 3,141,113,192,169 




ML 


1230 data 51 :remkey#3 




KB 


1040 data 47,141, 20, 3,169,192,141, 21 




NM 


1 240 data 52 :rem key #4 




OD 


1050 data 3,169, 16,133,254, 88, 96,173 




ON 


1250 data 53 :rem key #5 




LD 


1 060 data 137, 2, 1 97, 1 98, 240, 57, 1 69, 15 




PO 


1260 data 54 :rem key #6 




CP 


1070 data 141, 2,220,160, 0,140, 0,220 




AA 


1270 data 55 :rem key #7 




HC 


1080 data 173, 0,220, 41, 16,208, 28,196 




BB 


1280 data 56 :remkey#8 




GN 


1 090 data 254, 208, 8, 1 98, 253, 208, 27, 1 69 




CC 


1290 data 57 :rem key #9 




MF 


11 00 data 4,208, 2,169, 20,133,253,185 




PM 


1 300 data 65 : rem key # 1 




Ml 


11 10 data 114, 192, 166, 198, 157, 119, 2,230 




BO 


1310 data 66 :rem key #11 




JM 


11 20 data 198, 208, 5,200,192, 16,208,213 




DP 


1320data67:remkey#12 




NO 


1130 data 132, 254, 169, 255, 141, 2,220, 76 




FA 


1330 data 68 :rem key #13 




DP 


11 40 data 49,234 




HB 


1340data69:remkey#14 




CP 


1150: 

Superkey PAL Soi 


irce C< 


EA 


1350data70:remkey#15 
pkey 








>de 

sta 




EO 


100 


sys700 ;pal 64 assembler 


LI 


460 




MP 


110 


; superkey driver program 


EG 


470 




cli 






JG 


120 


$c000 


MM 


480 




rts 






KO 


130 


opt 00 


AG 


490 


i 








CA 


140 


1 


LD 


500 


start 


Ida 


bufmax 




PB 


150 


bufnum = 198 


GG 


510 




cmp bufnum ;check if keybuffer full 




DC 


160 


bufmax = 649 


NL 


520 




beq 


oldirq ;branch if yes 




NN 


170 


datapt = $dc00 


BL 


530 




Ida 


#%00001111 




GL 


180 


ddr - $dc02 


PL 


540 




sta 


ddr 


;set up data direction register 




MD 


190 


keybuf = 631 


IL 


550 




Idy 


#$00 


; start key count at zero 




EF 


200 


irqvec = 788 


LC 


560 


kread 


sty 


datapt 


istore count in port 2 




AB 


210 


cntr = $fd 


BM 


570 




Ida 


datapt 




HP 


220 


pkey = $fe 


BC 


580 




and 


#%00010000 ;check if key pressed 




OG 


230 


delay = 20 


DK 


590 




bne 


nokey ; branch if not pressed 




00 


240 


rpt = 4 


EN 


600 




cpy 


pkey ;is current key same as last 




PK 


250 


Ikey = 16 


EP 


610 




bne 


not ;branch if not the same 




KH 


260 


; 


LA 


620 




dec 


cntr ;decrement count until repeat 




KL 


270 


jmp setup ;connect 


IC 


630 




bne 


reset ; branch if not time for repeat 




JO 


280 


sei disconnect 


PO 


640 




Ida 


#rpt 




HB 


290 


Ida oldirq + 1 


BL 


650 




bne 


store 




FN 


300 


sta irqvec 


IB 


660 


not 


Ida 


#delay 




PC 


310 


Ida oldirq + 2 


PK 


670 


store 


sta 


cntr 


;set up counter for next repeat 




LK 


320 


sta irqvec + 1 


KB 


680 




Ida 


table.y ; 


;lda with character from table 




IN 


330 


cli 


DD 


690 




Idx 


bufnum 


;current key in keybuffer 




AE 


340 


rts 


NB 


700 




sta 


keybuf, x 


;store char 




EN 


350 


t 


GK 


710 




inc 


bufnum ; 


;add 1 to # of chars in buffer 




IH 


360 


setup sei 


AG 


720 




bne 


end 


; branch always! 




NN 


370 


Ida irqvec 


BL 


730 


nokey 


iny 




;add 1 to current key number 




PK 


380 


sta oldirq + 1 


EB 


740 




cpy 


#lkey 


;isloopdoneprint 




DL 


390 


Ida irqvec +1 


NM 


750 




bne 


kread ; 


; branch if not done 




HM 


400 


sta oldirq + 2 


OA 


760 


end 


sty 


pkey ; 


;save y in previous key pressed 




FL 


410 


Ida #<start 


MG 


770 


reset 


Ida 


#%1 1 1 1 1 1 1 1 




NE 


420 


sta irqvec 


CO 


780 




sta 


ddr ;restore data direction registr 




FM 


430 


Ida #>start 


GH 


790 


oldirq 


jmp 


Sea31 ;go to old irq routine 




DC 


440 


sta irqvec + 1 


CI 


800 


table 


.asc 


,, 0123456789abcdef" 




DD 


450 


Ida #lkey 


MC 


810 


;table of characters for keys 






AB 


820 


.end 
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String Calc 



Daniel Bingamon 
Batavia, Ohio 



Here is a simple and yet transportable program written in Basic 
for evaluating expressions in strings. 

The program will evaluate the string in a left to right order (not 
algebraically) like the way you would enter it on a very simple 
calculator. The program is shown below with a description of 
what each section does: 

First, a simple screen clear. 

10 printchr$(147) 

The user is prompted for a formula, passed from a different 
subroutine instead of the input statement. 

20 input "enter formula ";f$ 
Program is terminated if stop is typed. 

30 iff$ = " stop " thenstop 
The variable " A " will be used as an accumulator for the result. 

40a = 

A space is put on the end of the formula as a terminator in case 
the user did not supply one. " P$ " , Is the work string for the 
parser and " ID" is flag which determines what type of opera- 
tion will be performed, "9" is the initial mode. "DN" is the 
finish flag. 

50f$ = f$ + " n :p$ = f$:id = 9:dn = 

This loop looks to see the length of an element by looking 
ahead for the next separator character (space). If it not found 
then an error message occurs. An error should not occur on 
line 70 since line 50 insures against it. 

60fori = 1tolen(p$) 

65ifmid$(p$,i,1)=" "then80 

70 next:print " ?invalid formula " :goto20 



Set value flag on. The Value flag off means that the next 
character is a symbol. If it is a value then the amount will be 
placed in the variable " V " . 



100va = 1:v = val(x$) 

If the contents of X$ is not a value then set the value flag back to 
off. 

1 05 ifval(x$) = 0andleft$(x$, 1 )<> " " thenva = 

If the symbol is a PI symbol or the word PI then toss PI into V 
and set value flag back to on. 

110ifleft$(x$ ) 2)="pi"thenv = 3.14159265:va=1 
120ifleft$(x$,1)="n"thenv = 3.14159265:va = 1 

If value flag is on then goto process value routine otherwise find 
out what type of symbol is used. 

130ifva=1then230 

Handle subtotals. 

1 35 ifleft$(x$, 1 ) = " ' " thenprint " st = ";a:goto310 
Load first position into string and compare. 

1 40 id$ = left$(x$, 1 ): id = 

Compare to possible symbols and set up a symbol code. 

1 50 if id$ = " + ' thenid = 1 
160ifid$-"- M thenid = 2 
170 ifid$= "* M thenid = 3 
180 ifid$=*7 "thenid = 4 
1 90 ifid$ = " t " thenid = 5 

If symbol could not be found then spit out error. 



195 if(id>0)and(id<90)andmid$(x$,2,1)<>" "then 
print "?error":goto20 



Now a check to see if the program finished flag should be set by 

determining if the pointer to the end of formula matches the Skip over extra spaces. 

size of the formula. 



80ifi = ien(p$)thendn = 1 
Set up string from the work string to the next separator (space). 
90x = i:x$ = left$(p$,x) 



200 ifid$ = "then310 



If accumulator is still zero then skip test for rounding. 



203ifa = 0then210 
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Round by tens requested? 









204 if id$ = " @ " thenam = val(mid$(x$ ( 2, 1 )) 
:am = -am:goto207 

Round by tenths requested? 

205ifid$<>Vthen210 



Sure, it doesn't do everything the internal machine language 
routine that evaluates expressions in your Commodore com- 
puter does but, it helps give you a BASIC idea on how a 
computer can perform these functions. The program can be 
used in a number of applications and might even be expanded 
to give some operations priority and even process the paren- 
thesis ( ) symbols. 



Round by raising to the specific power to make the affected 
position lie in the tens position, add .5 to the number, truncate 
and reverse the process to take the number back to original 
power. 

206 am = val(mid$(x$,2, 1 )):ifa = 0then21 

207 a = int(a*(1 Otam) + .5):a = a/(1 Otam) 
:id = 0:goto310 









If no ID code for symbol found then it must be an invalid 
symbol, spew out error message. 

210 ifid = Othenprint "?bad symbol " :goto20 






Symbol processed. Get then next element. Normally it should 
be a value unless, the accessory functions such as rounding or 
subtotals are used. 









220goto310 






Take the accumulator and the value being processed and 
merge them by the instruction code created by the Symbols. 



230 ifid 
240 ifid 
250 ifid 
260 ifid 
270 ifid 
280 ifid 



1thena = a + v 

9thena = v:id = 0:goto31 

Othenprint " ?error " :got20 

2thena = a-v 

3thena = a*v 

5thena = atv 



Division by zero trap. 

290 ifid = 4andv = Othenprint " ?div by zero " :goto20 
300 ifid = 4thena = a/v 

If done flag set exit here to show result and request new 
formula. 

310ifdn = 1then330 

Move forward to the next element by removing the old ele- 
ments as we go along. 

320 p$ = right$(p$,(len(p$)-len(x$))):goto60 

Display result and clear accumulator. 

330 print " result = " ;a:a = 0:goto20 



String Calc, uninterrupted 

10printchr$(147) 

20 input "enter formula ";f$ 

30 iff$ = " stop " thenstop 

40a = 

50f$ = f$+ " ":p$ = f$:id = 9:dn = 

60 fori = 1 tolen(p$) 

65ifmid$(p$,i,1)= " "then80 

70 next:print " ?invalid formula " :goto20 

80 ifi = len(p$)thendn = 1 

90x = i:x$ = left$(p$,x) 

100va = 1:v = val(x$) 

1 05 ifval(x$) = 0andleft$(x$, 1 )<> " " thenva = 

110ifleft$(x$,2)= "pi"thenv = 3.14159265:va=1 

120ifleft$(x$,1)="Tr"thenv = 3.14159265:va=1 

130ifva = 1then230 

135ifleft$(x$,1)= thenprint " st = ";a:goto310 

140id$ = left$(x$,1):id = 
1 50 ifid$ = " + " thenid = 1 

" - " thenid = 2 

" * " thenid = 3 

"/"thenid = 4 

"t" thenid = 5 
1 95 if(id>0)and(id<90)andmid$(x$,2, 1 )<> " " then 

print "?error":goto20 
200 ifid$ = " "then310 
203ifa = 0then210 
204 ifid$ = " @ " thenam = val(mid$(x$,2, 1 )) 

:am = -am:goto207 
205ifid$O";"then210 
206am = val(mid$(x$,2,1)):ifa = 0then210 
207 a = int(a*(1 Otam) + .5):a = a/(1 Otam) 

:id = 0:goto310 
210 ifid = Othenprint " ?bad symbol " :goto20 
220goto310 
230 ifid = 1thena = a + v 
240 ifid = 9thena = v:id = 0:goto310 
250 ifid = Othenprint " ?error " :got20 
260 ifid = 2thena = a-v 
270 ifid = 3thena = a*v 
280 ifid = 5thena = atv 

290 ifid = 4andv = Othenprint " ?div by zero " :goto20 
300 ifid = 4thena = a/v 
310ifdn = 1then330 

320 p$ = right$(p$,(len(p$)-len(x$))):goto60 
330 print " result = " ;a:a = 0:goto20 



1 60 if idS = 

1 70 ifid$ = 
1 80 if id$ = 
1 90 if id$ = 
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Getting On Viewtron: It's This Easy! 



First, you need the Viewtron Starter Kit. If you live in the U.S. 
you can call their toll free number: 

Viewtron 

1 800 272 5400 

1111 Lincoln Road, 7th Floor 

Miami Beach, Florida 

33139 

It's just $9.95 and it comes with handy 46-page reference 
guide, a disk with software that works superbly, and an hour of 
Viewtron free. 

Viewtron is fast, flexible, versatile, capable, and, it's in color! 
With a nice color monitor, some of the screens are rather 
pleasing. The software is somewhat specialized for the NAPLPS 
videotex! protocal, but it can download, send to printer, re- 
dial, plus lots of other stuff - it's all in the manual. 

Canadian orders that get stuck in customs can take as long as 
six weeks to get to you from Miami. Instead, let us send you one 
- it's about the same price after exchange and you can use our 
postage paid subscription form. See News BRK for more details. 

The simplest part about Viewtron has to be signing on. The 
disk is 4040/1541 format. You LOAD" * " ,8,8 (or \8,r if you 
like) and you'll get two options. 1 to sign on, 2 for set-up. Once 
you get the Viewtron software set up with your ID and Pass- 
word, hit 1 for sign-on and the program does the rest. If you 
don't have an auto dial modem you'll need to call your local 
network manually, but after that the program does the rest. It 
pumps out the Viewtron call address for you, followed by your 
ID and Password. The first screen you see is the main index 
which informs you of any new mail, current events, and away 
you go. You're On! 



Setting Up For Viewtron 

The "set-up" option will rarely be used more than once. Before 
loading the Viewtron software, however, you should first load 
another program that comes on the disk: 

load "phone ",8,8 

run 

Enter your area code and a list of phone numbers will be 
displayed for the major telecommunications networks (see 
below). You can access Viewtron from any of these networks so 
pick a number (preferably a local call) and write it down along 
with *he network it belongs to. Some numbers may not appear 
in this list but it's easy to change these parameters should you 
find ways to fine tune your software later on (ie. more local call 
or 1200 baud line). 



Now load the Viewtron program (load " * " ,8,8) and choose 
option 2. The menu will show three sections that need to be 
completed. 

1: Modem 

The following has been reproduced from the "set-up" option 
and should give you an idea of which modems are compatible 
with the Viewtron software. 

1 Volksmodem 1200 

2 Westridge 6420 

3 Hesmodem I 

4 Smartmodem 

5 1064 Modem 

7 Commodore 1660 

8 More modems, takes you to: 

1 Vicmodeml600 

2 64modem 

3 Volksmodem 6420 

4 Commodore 1650 

5 Commodore 1670 

6 Other auto (dialing) 1200 

7 Other auto (dialing) 300 

8 More modems, takes you to: 

1 Manual 1200 

2 Manual 300 

8 More modems, repeats from start. 



2: Built in Networks 

1 Telenet 

2 Uninet 
3LADT 

4 Tymnet 

5 Datapac 

6 Other 

Selecting any of the above will prompt for a phone *. This is the 
local number for the network you have chosen (which you may 
have found from the "phone" program earlier). Option 6 allows 
you to enter the phone number of any network, followed by the 
call sequence to access, theoretically, any service. However, 
the Viewtron software is somewhat specialized and compatibil- 
ity with other online services, NAPLPS or otherwise, has not 
been tested. 

3 ID and Password 

Option 3 prompts for your Viewtron ID and Password from the 
card inside the Viewtron Pack. Enter these as shown but hang 
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on to the card - the ID and Password are sent automatically by 
the software when you sign on, but some sections of Viewtron 
will ask you for your password so keep it handy. 

Once back at the menu, hit Return and everything will be 
stored to disk. Don't worry about mistakes, changes are easy. 
You can even change your password after you get your 
Viewtron account established. 



Compu-toons 



Your First Time On Viewtron 

Now select option 1 : Sign-On. If you have an auto-dial modem, 
sit back and relax. If not, dial the number for your local 
network manually and wait for the connect tone. Signing on 
generally takes about 30 seconds but any more than a minute 
means try again - hit C= and R for Redial. 

You'll be asked for your first name, your last name, address, 
etc., and get your credit card, you'll need that too. 

Once Viewtron has all your particulars, you're ready to wander. 
You may find it strange to have 'New Mail' waiting for you since 
this is your first time on, but read it anyway for the experience. 
Try 'CB' - you'll be asked to enter your "handle" so you may 
want to think one up ahead of time. Try some of the other 
keywords listed in the manual. It doesn't take long and 
Viewtron will as easy as loading the software. 

The Transactor is currently investigating the potential for a 
'Transactor' section on Viewtron. Articles would be made 
available as well as programs for downloading. To get an idea of 
what a Transactor section might be like, try the Protecto (enter 
protecto) section. Entering transactor would take you to a 
similar screen where you would select from a number of 
options. 

So check it out and let us know what you think. We'll have 
more about Viewtron next issue. 



The SAVE® Saga 



If you've been following the SAVE® saga you've probably 
read the brilliant investigative work of P.A.Slaymaker in 
Compute. Part 2 of Phillip's article uncovered some impor- 
tant missing pieces of the mystery. Unfortunately we didn't 
have time to make any additional study for this issue. Phil 
has agreed to make more of his discoveries available to us, 
including the code changes he discussed in Compute, 
hopefully by next issue. 

The latest news, however, is that SAVE® is equally offen- 
sive in the MSD drives (as noted by Roy Dancy, Dothan, 
AL) as well as the new Commodore 1571. It's interesting 
how the same bug can get from one DOS to another, even 
with two completely different manufacturers. Hmm. 



N QJUJ. 





I told you this new anti-copy protection doesn't fool around. 




"INPUT. . . OUTPUT. . . SHOT PUT" 
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The Transactor Disk 




With only 16 characters per filename, many of the programs on 


Machine Language, '.bas' i 


s a BASIC file, and '.pal' or '.src' is a PAL 


Transactor Disks have 


somewhat deceiving titles. Most are self- 


Assembler source code file 






explanatory, others have been appended with additional briefings. 


















TransBASIC files propagate forward to each new disk. Descriptions of 


Proc 


[rams with block cou 


ntsofon 


ly 1 or 2 are usually just subroutines 


TransBASIC files will appear only • 


on the first disk on which they were 


for use within other programs. A " 


dazzler" is our way of describing the 


offered. However, most TB modules can not possibly be described in 


more entertaining (as opposed to useful) programs. And a "demo" 


brief. Commands within modules are listed in REM statements - 


indicates illustration of a i 


:oncept as opposed to a demonstration of the 


complete descriptions of the commands can only be obtained from 


cosmetic variety. A 'VI' 


in these 


descriptions indicates Version 1 - 


the 


magazine. Summaries of all 


commands can be found in the 


look for a similar filename on a later disk for an update. 'ML' denotes 


TransBASIC column. The prefix 'TB:' will be used in this list to show 










TB command files. 








"transactor diskl " 




12 


"c64 tiny aid Idr" 


prg 


c64 tiny basic aid 


1 


"-vol 4 issue 01-" 


prg 




1 


"-vol 4 issue 04-" 


prg 




1 


"opt illusion 4.0" 


prg 


dazzler 


2 


"1 linesquiggle" 


prg 


dazzler 


23 


"unassembler4.0" 


prg 




2 


"cathode ray prgl" 


prg 


dazzler 


4 


"string thing 4.0" 


prg 


4.0 string utility 


1 


"cathode ray prg2" 


prg 


dazzler 


14 


"bmbstringthing" 


seq 


source code 


3 


"datadjuster" 


prg 


for controlling data reads V1 


2 


"stringthing.bin" 


prg 


object code at $7e00 


2 


"retina wrencher" 


prg 


dazzler 


7 


"chain tracer" 


prg 


traces disk files 


2 


"wordpro lister" 


prg 




2 


"ieee modem drivr" 


prg 




8 


"hard disk backup" 


prg 


9060/9090 to floppies 


2 


"keyboard setup" 


prg 


indexed arrays demo 


10 


"superkey64" 


prg 


keyword burst keys 


9 


"SPet terminal" 


prg 


in basic 


5 


"redecode8032" 


prg 


keyboard interception demo 


7 


"vicaid.rel" 


prg 


tiny basic aid 


4 


"sid friend part3" 


prg 




3 


"vie modem driver" 


prg 




6 


"sound help" 


prg 


sid sound utility 


1 


"-vol 4 issue 02-" 


prg 




3 


"sound help demo" 


prg 




1 


"ftoutsm4.0" 


prg 


dazzler 


23 


"sprite palette" 


prg 


sprite editor 


2 


"brain bender 4.0" 


prg 


dazzler 


20 


"graphics utility" 


prg 


hi-res utility 


1 


"vertical message" 


prg 


vertical printing demo 


31 


"graphic util.src" 


prg 




1 


"vertmsgpart2" 


prg 




6 


"raster irq demo" 


prg 


c64 raster interrupts 


2 


"screen marker" 


prg 


cursor positioning 


13 


"raster irq.src" 


prg 




2 


"writing a file" 


prg 


basic code from 


1 


"-vol 4 issue 05-" 


prg 


ref. issue - no programs 


2 


"reading a file" 


prg 


an article by 


1 


"-vol 4 issue 06-" 


prg 




1 


"coding comments" 


prg 


jim butterfield 


8 


"incrementation" 


prg 


dazzler 


3 


"translator. sre" 


prg 


a translation table 


2 


"moneyout" 


prg 


formatting dollar figures 


2 


"translator.ldr" 


prg 


utility for basic 4 


5 


"palindrome" 


prg 


see dictionary 


3 


"translator demo" 


prg 




2 


"autoliner4.0v1" 


prg 


auto line# generate 


12 


"sid friend parti" 


prg 


c64 sid keyboard demo 


2 


"autoliner64v1" 


prg 


for entering progs V1 


8 


"skiffle band 1 " 


prg 


programmed sid music 


4 


"datadjust update" 


prg 


datadjuster V2 


7 


"skiffle band 2" 


prg 




15 


"refield" 


prg 


extension for The Manager 


22 


"basic aid editor" 


prg 


extension to basic aid 


23 


"create" 


prg 


for use with 'refield' 


6 


"joystick reader" 


prg 




2 


"updating 4.0" 


prg 


updating programs demo 


1 


"-vol 4 issue 03-" 


prg 




9 


"mid string dream" 


prg 


mid$ demo 


3 


"kaleidoscope 80" 


prg 


dazzler 


1 


"get subroutine 1" 


prg 




4 


"disk append 4.0" 


prg 


append to basic text 


2 


"get subroutine 2" 


prg 




7 


"string thing 64" 


prg 


string utility 


3 


"get subroutine 3" 


prg 




2 


"tapemaker 64" 


prg 


send disk files to tape 


8 


"menu type 1" 


prg 


menu driver demos 


6 


"univ disk change" 


prg 


change device # 


5 


"menu type 2" 


prg 




3 


"screen center" 


prg 


center text demo 


6 


"menu type 3" 


prg 




11 


"catstrapolator" 


prg 


catalog info retrieval 


2 


"directory type 1" 


prg 


display disk 


11 


"catstrapolator64" 


prg 


of blocks free, ID, etc. 


2 


"directory type 2" 


prg 


dirs from basic 


5 


"sid friend part2" 


prg 




4 


"datesubrtn 1" 


prg 


input valid 


2 


"char sets progl" 


prg 


move c64 char set 


3 


"datesubrtn2" 


prg 


date strings 


2 


"char sets prog2" 


prg 


from rom to ram 


3 


"st interrogate" 


prg 


status word handling 


2 


"char sets prog3" 


prg 




8 


"univ disk rtns" 


prg 


basic disk file readers 


6 


"character editor" 


prg 


for hi-res chars 


6 


"sid friend part4" 


prg 




10 


"high res dumper" 


prg 


to 8023 printer 


38 


"sid friend part5" 


prg 




15 


"labeler.src" 


prg 


for labelling basic 


8 


"function key 64" 


prg 


define function keys 


6 


"label loader.vic" 


prg 


to allow goto & gosub 


9 


"copier64 generat" 


prg 


generates next prog 


6 


"label loaderc64" 


prg 


to use labels instead 


2 


"copy file 64" 


prg 


for single drive copies 


2 


"label test prog" 


prg 


of line numbers. 


71 blocks free. 
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'transactor disk2" 



1 

2 
2 
3 

2 

2 

2 

3 

2 

2 

2 

2 

1 

1 

3 

2 

2 

1 

5 

6 

22 

14 

8 

9 

10 

25 

2 

7 

6 

6 

7 

7 

4 

4 

8 

9 

8 

3 

5 

2 

1 

3 

1 

5 

1 

1 

2 

2 

2 

2 

2 

2 

3 

3 

4 

3 

3 
2 
2 
3 
3 
1 

4 

5 

12 

12 

39 

11 

3 

7 



I G 



( I 



( 4 



( I 



I t 



1 1 I 



lit 



I 4 



k I 



I * 



L 1 



"vol 5 issue 01-" 
"the brain" 
"marquis 80" 
"marquis 64" 
"marquis 40 

marquis 20 

the boxer" 

the plunge" 

sequins 40/80" 

sequins 64" 
"curtains" 
"graphic print" 
"reverse rvs" 
"1 line pet emulr" 

on error goto" 

but seriously" 

zoundz" 

a-maze-ing" 

waves 64" 
"vie 20 sound" 
"pet sound fx" 
"sound maestro 64" 
"quartermaster" 
"sprite rotate" 

quasimob loader" 

quasimob.src" 

change screen 64" 

harmonic motion" 

qtrsqrplot80" 

qtr sqr plot c64" 

'qtrsqr vie norm" 

qtrsqr vicexpd" 

projectile 4.0" 

projectile 64" 

talk clock 4.0" 

talk clock 64" 

talk clock vie" 
"cartridge sim" 
"generate demo 64' 
"gen generate 64" 
"-vol 5 issue 02-" 
"down scroll 64" 
"color ftoutsm 64" 
"ftoutsm.ml" 
"ama-zamara-ing" 
"stop disable 64" 
"autoliner4.0v2" 
"autoliner64 v2" 
"screen copy vie" 
"eepeep4.0" 
"mirror 80" 
"mirror 40" 

mirror 64" 

ram scan 80" 

ram scan 40" 

ram scan 64" 

crystal" 

un cursor 80" 

un cursor 40" 

un cursor 64" 

un cursor 20" 

pop c64" 

un token memory" 

un token disk" 

merge 4.0" 
"merge c64" 

basic monitor 64" 

pi program" 
"rocket64 ml. run" 

rocket64 bas.run" 



1 1 



i * 



1 1 



I 4 



II 



* ■ 



tl 



I * 



It 



I 1 



I 4 



I * 



I 1 



I I 



( I 



41 



i i 



i i 



l l 



* ! 



I i 



I * 



1 I 



4 1 



4 1 



41 



» * 



II 



prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 

prg 

prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 

prg 

prg 
prg 

prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 

prg 

prg 
prg 
prg 

_R[g_ 



dazzler 
banner program 



dazzler 
dazzler 
dazzler 

dazzler 

graphs weighted by letters 

alternate rvs on/off 

for most pet programs 

error trapper 

drum roll, cymbals 

sid sound demo 

maze generator 

sid surf sound 

bach for vie 20 

popular sound effects 

sid sound utility 

the song 

get more than 8 sprites 

colour changes 
plotting routine 
quarter square plotter 



plotting a projectile path 

talking clock for use 
with votrax sc-01 

simulate cartridges 
program generator 



dazzler 
dazzler 
screen effects 
disable run/stop restore 
generate line numbers 
version 2 
screen to printer 
basic 4.0 irq sound 
text mirroring 



ML memory display 



draw crylaline pattern? 



clear returns from stack 
a basic lister 

merge basic text 

a basic MLM 

calculate pi 

ML thrust vs. gravity demo 

basic version 



2 


"rocket.sprt" 


prg 




2 


"rocket, obj" 


prg 




8 


"rocket listing 2" 


prg 




10 


"rocket listing 3" 


prg 




8 


"rocket listing 4" 


prg 




3 


"rocket listing 5" 


prg 




6 


"string insert 64" 


prg 


insert strings into strings 


16 


"cia timer demo" 


prg 




7 


"tod clock 64" 


prg 


time of day clock demo 


5 


"joycursor64" 


prg 


control cursor with joystick 


2 


"sx64 emulate pt1 " 


prg 




1 


"sx64 emulate pt2" 


prg 




1 


"-vol 5 issue 03-" 


prg 




1 


"linedoodaa" 


prg 


dazzler 


2 


"colour test 64" 


prg 


contrast adjustment 


1 


"bytefinder ram" 


prg 


find byte values 


1 


"bytefinder disk" 


prg 




3 


"un-dim 4.0/2.0" 


prg 


clear arrays 


4 


"un-dim vic/64" 


prg 




2 


"errorouter 64" 


prg 


trap errors 


4 


"line hider" 


prg 


hide entire lines 


3 


"ghost liner" 


prg 


hide lines but not line# 


5 


"list decorator" 


prg 


control over LIST 


3 


"etchasketch" 


prg 




2 


"default colours" 


prg 


after run/stop restore 


2 


"restore x 64" 


prg 


control DATA read pointer 


2 


"led demo" 


prg 


user port demo 


3 


"led knight rider" 


prg 




4 


"led roulet wheel" 


prg 




15 


"quadra 64 loader" 


prg 


partition text space 


1 


"quadra 64 init" 


prg 




23 


"quadra 64. sre" 


prg 




1 


"basmon part2" 


prg 


ML monitor in basic 


9 


"picprint64" 


prg 


hi-resto printer V1 


17 


"picprint64.src" 


prg 




4 


"basic compare" 


prg 


compare basic prg files 


8 


"scramble. bas" 


prg 


basic encryption technique 


9 


"scramble. ml" 


prg 




7 


"scramble64.ml" 


prg 




4 


"password prot 1" 


prg 


password encryption 


4 


"password prot 2" 


prg 


file protection 


10 


"disk defender" 


prg 


disk protection demo 


10 


"disk defend 8050" 


prg 




5 


"lockdisk4.0 M 


prg 


force run after load 


4 


"lockdisk64" 


prg 




15 


"drive protect" 


prg 


disk utility 


7 


"disk view/change" 


prg 


examine disk contents 


16 


"diskmod 4.0" 


prg 




24 blocks free. 







II 



transactor disk3' 



1 
1 
1 
1 

1 

3 
3 
3 

3 
1 

2 

1 
2 
3 

1 

4 

4 

7 



" + business &ed. + 

"quick beep 64" 
"colour bar 64" 
"dazzle attack4.0" 
"aquarius80" 
"intscan64.src" 
"intscan4.0.src" 
"file ripper 4.0" 
"file ripper 64" 
"file loader" 
"ascii/cbm" 
"magic number" 
"safe val subrtn" 
"prime number gen" 
"short prime gen" 
"expeval 64 Idr" 
"expeval plot" 
"expeval 64.pal" 



prg 

prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 



compare colours 

dazzler 
dazzler 
keyboard scanning 

fast seq reader 

successive loading demo 

converter 

arithmetricks 

VAL( substitute 



expression evaluator 
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5 


"compound intrest" 


prg 






"transactor disk5" 


5 


"get string loadr" 


prg 


get subroutine 


1 


'aids & utilities" 


prg 


14 


"getsrc.pal" 


prg 




8 


"aid4" 


prg 


25 


"sort 64. pal" 


prg 


cascading sort routine 


7 


'vicaid.rel" 


prg 


11 


"sort 64 create" 


prg 




8 


"c64 tiny aid Idr" 


prg 


3 


"sort 64" 


prg 




10 


'supermon2.rel" 


prg 


5 


"sort64demo1" 


prg 




9 


"supermon4.rel" 


prg 


5 


"sort pet demol" 


prg 




10 


"super vicmon2" 


prg 


3 


"sort64demo2" 


prg 




10 


"supermon64.v1" 


prg 


3 


"sort pet demo2" 


prg 




10 


'copy-all" 


prg 


11 


"sort pet create" 


prg 




10 


"copy-all64*' 


prg 


3 


"sort pet" 


prg 




2 


'copy file 64" 


prg 


30 


"philemasterpet" 


prg 


simple database 


3 


"transbasic instr" 


prg 


31 


"philemaster64" 


prg 




4 


"tb/add.obj" * 


prg 


28 


"philemas petcas" 


prg 




15 


"tb/kernel" 


prg 


29 


"philemas64cass" 


prg 




23 


"tb/add.src" 


prg 


15 


"home budget" 


prg 




10 


"add" 


prg 


39 


"basic monitor 64" 


prg 




5 


"screen things" 


prg 


3 


"count wpm" 


prg 


count words per minute 


4 


"verifizer.vic/64" 


prg program entry checker 


13 


"speller" 


prg 


spelling drill 


4 


"verifizer.pet" 


prg 


17 


"autoswap64.ldr" 


prg 


multitasking utility 


1 


ii li 


prg 




33 


"autoswap64.pal" 


prg 




2 


"wordprodump" 


prg 


291 blocks free. 






2 


"regain" 


prg un-new utility 










2 
3 
2 


"border flasher" 
"double directory" 
"c64 disk status" 


prg warm-start demo 
prg double width disk dirs 
prg error channel reader 




"transactor disk4" 




1 


"cbm scrn dump 80" 


prg 


I 1 


" + hardwar/periph + 


"prg 




1 


"cbmscrndump40" 


prg 


8 


"aid2" 


prg 


tiny basic aid for basic 2 


3 


"phone speller" 


prg phone# letter combinations 


8 


"aid4" 


prg 


for basic 4.0 


5 


"keyword pet. bas" 


prg keyword burst keys 


7 


"vicaid.rel" 


prg 


for the vie 20 


5 


"keyword c64.bas" 


prg 


8 


"c64 tiny aid Idr" 


prg 


for the c64 


5 


"keyword vie. bas" 


prg 


10 


"supermon2.rel" 


prg 


M.L. monitor prog 


4 


"irq display. pal" 


prg irq driven text display 


9 


"supermon4.rel" 


prg 


for basic 4.0 machines 


3 


"lineclear.pal" 


prg clear all but top 3 lines 


10 


"super vicmon2" 


prg 


for vic20 


1 


"—articles—" 


usr 


10 


"supermon64.v1" 


prg 


for c64 


7 


"verigenc64" 


prg generate verifized files 


10 


"copy-all" 


prg 


for unit to unit disk copying 


4 


"doke&deek" 


prg TB: double poke/peek 


10 


"copy-all64" 


prg 


for multiple 1541s 


3 


"bit twiddlers" 


prg TB: set, clear, flip 


2 


"copy file 64" 


prg 


single 1541 copier 


4 


"check & await" 


prg TB: input interception commands 


23 


"unassembler4.0" 


prg 


make source from object code 


3 


"keywords" 


prg TB: show keywords present 


1 


II ii 


prg 




18 


"error wedge. bas" 


prg adds commands (use '<§>' as prefix) 




2 


"memory save 64" 


prg 


save memory ranges 


41 


"error wedge, pal" 


prg 


2 


"control keys 64" 


prg 


detect special keys 


45 


"keywiz64" 


prg keyboard driver 


2 


"inst coir chng64" 


prg 


change screen colours 


33 


"linked lists" 


prg 


3 


"drowning in garb" 


prg 


dazzler 


52 ' 


"hi-res listing 1" 


prg generates file "hires" 


; 3 


"single disk copy" 


prg 


basic file copier 


5 


"listing 2" 


prg hires pie graphs 


I 3 


"single copy 64" 


prg 


c64 version of above 


5 


"listing 3" 


prg hires bar charts 


; - 3 


"clear/plot bas64" 


prg 


point plot/hi-res clear routine 


10 


"listing 4" 


prg hires expression plotter 


3 


"hex table" 


prg 


prints dec/hex table 


8 


"vicparms" 


prg vie II chip parameter calc. 


5 


"large chars 64" 


prg 


char rom demo 


13 


"bigprint" 


prg hi-res screen to printer 


t 6 


"reset protector" 


prg 


emulate cartridges 


3 


"sprite ed1" 


prg two short sprite 


3 


"transbasic instr" 


prg 


brief transbasic instructions 


6 


"sprite ed2" 


prg editors 


15 


"tb/kernel" 


prg 


transbasic kernel 


15 


"list scroll" 


prg using crsr keys 


10 


"add" 


prg 


TB: add source code 


10 


"stp.bas" 


prg seq to prg - execute from 


23 


"tb/add.src" 


prg 


kernel source + add source 


8 


"stp.pal" 


prg a seq file (like batching) 


I 4 


"tb/add.obj" 


prg 


object code for above 


5 


"quote killer" 


prg quote mode utility 


\ 5 


"screen things" 


prg 


TB: border, background, etc. 


7 


"gap fill" 


prg remove dir gaps left by Scratch 


1 


"hardcornr prgl" 


prg 


read data reg bits 


47 


"print ml. c64" 


prg ML loader technique 


2 


"hard cornr prg2" 


prg 


read user port switches 


10 


"print ml.vicl" 


prg 


! 2 


"hard cornr prg3" 


prg 


read 4x4 keyboard matrix 


10 


"print ml. vic2" 


prg 


6 


"hard cornr prg4" 


prg 


scan c64 keyboard hardware 


8 


"super cat" 


prg dir info extractor 


3 


"keyboard click" 


prg 


keyboard audio feedback 


1 


"numeric keypad" 


prg utility for the c64 


5 


"projector Ctrl" 


prg 


slide projector hardware 


31 


"disk/exmon @8000" 


prg disk extramon for c64 


4 


"linked lists 1 " 


prg 


sort without sorting 


31 


"disk/exmon@1000" 


prg adds disk plus MLM commands 


6 


"linked lists 2" 


prg 




4 


"drive peeker" 


prg inner disk utility 


2 


"linked lists 3" 


prg 




11 


"file compare. pet" 


prg compare two files 


8 


"diskdatafier4" 


prg 


a faster basic loader 


11 


"file compare. c64" 


prg byte by byte (in ML) 


8 


"diskdatafier64" 


prg 


for ML data 


Obloc 


ks free. 




8 


"diskdatafier20" 


prg 










399 blocks free. 
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"transactor disk6" 




"transactor disk7" 




1 


more aids + utils" 


prg 


1 


"comm + networkin" 


seq 




8 


'aid4" 


prg 


8 


"aid4" 


prg 




7 


'vicaid.rel" 


prg 


7 


"vicaid.rel" 


prg 




8 


c64 tiny aid Idr" 


prg 


8 


"c64 tiny aid Idr" 


prg 




10 


"supermon2.reI" 


prg 


10 


"supermon2.rel" 


prg 




9 


"supermon4.rel" 


prg 


9 


"supermon4.rer 


prg 




10 


'super vicmon2" 


prg 


10 


"super vicmon2" 


prg 




10 


: 'supermon64.v1" 


prg 


10 


"supermon64.v1' 


prg 




10 


'copy-all'* 


prg 


10 


"copy-all" 


prg 




10 


"copy-all64" 


prg 


10 


"copy-all64" 


prg 




2 


"copy file 64" 


prg 


2 


"copy file 64" 


prg 




3 


"transbasic instr" 


prg 


3 


"transbasic instr" 


prg 




4 


"tb/add.obj" 


prg 


4 


"tb/add.obj" 


prg 




15 


"tb/kernei" 


prg 


15 


"tb/kernel" 


prg 




23 


"tb/add.src" 


prg 


23 


"tb/add.src" 


prg 




10 


add" 


prg 


10 


"add" 


prg 




5 


"screen things" 


prg 


5 


"screen things" 


prg 




4 


"cursor position" 


prg TB: set or check crsr pos. 


4 


"cursor position" 


prg 




7 


"set sprites" 


prg TB: sprite commands 


7 


"set sprites" 


prg 




5 


"within" 


prg TB: test number for 'within range' 


5 


"within" 


prg 




4 


"read sprites" 


prg TB: sprite monitoring 


4 


"read sprites" 


prg 




4 


"verifizer.vic/64" 


prg 


5 


"strip& clean" 


prg 


TB: string purging 


4 


"verifizer.pef 


prg 


20 


"scrolls" 


prg 


TB: scroll screen windows 


10 


"stp loader" 


prg seq to prg (batch) utility 


4 


"verifizer.vic/64" 


prg 




1 


"stpsys49152" 


prg 


4 


"verifizer.pet" 


prg 


• 


1 


"stpsys828" 


prg 


10 


"stp loader" 


prg 




1 


n ii 


prg 


1 


"stpsys49152" 


prg 






3 


"racer pet" 


prg cheap video game 


1 


"stpsys828" 


prg 




3 


"racer 64" 


prg 


1 


li ft 


prg 






3 


"racer vie" 


prg 


4 


"flash" 


prg 


flash characters lor c64 


3 


"racer +4" 


prg 


2 


"boxspiral +4" 


prg 


plus4 box demo 


2 


"tickertape64" 


prg with sound effects 


4 


"hires text" 


prg 


copy ROM chars to hi-res screen 


2 


"dec to base b" 


prg convert to base b 


1 


"c64fastkey" 


prg 


GET speed mcreaser 


2 


"screen save vie" 


prg save screen to disk 


3 


"banner" 


prg 


simple marquis program 


3 


"save® exposed!!!" 


prg @ replace bug demo 


1 


"screen sizzle" 


prg 


dazzler 


13 


"dos exec filer" 


prg execute programs in disk memory 


5 


"btoxx32.bas" 


prg 


convert B machine files 


2 


"create device 9" 


prg device# changer and head knock 


3 


"1541 align" 


prg 


1541 head alignment 


2 


"create anti-nok" 


prg eliminator for use with above 


7 


"tdd termprog" 


prg 


TDD communications terminal 


34 


"alpha dir.bas" 


prg alphabetize disk directories 


8 


"remote, bas" 


prg 


c64 remote control utility 


26 


"alpha dir. pal" 


prg 


14 


"remote. pal" 


prg 




3 


"auto-default. bas" 


prg change reset default values 


13 


"c64bbslink" 


prg 


bbs numbers database 


4 


"auto-def. create" 


prg 


3 


"sort64" 


prg 


load this (,8, 1) for use with above 


7 


"auto-default. pal" 


prg 


16 


"tele-tone 64" 


prg 


touch tone generator 


6 


"file pursuit" 


prg trace and size 


5 


"1541 dual drive" 


prg 


simulation using 2 1541s 


8 
2 


"supernumber.bas" 

1 ' ci inorni irn Qrr3\/' T 


prg indestructible variables 


11 
2 


"vector manager" 


prg 


cascade irq routines 


ouuci r lui 1 1 or ray 


prg 


TTTTttTTTTtttTTT 


prg 




11 


"supernumber.pal" 


prg 


8 


"extra extra" 


prg 


instructions for following prgs 


1 


"supnum sys49152" 


prg 


15 


"terminal. r12" 


prg 


pet/cbm terminal prog 


1 


"varptr" 


prg returns address of variables 


7 


"term.r12" 


prg 




4 


"func keys, bas" 


prg screen editor extensions 


4 


"intelcom3" 


prg 




4 


"func keys, pal" 


prg 


4 


"intelcom4" 


prg 




10 


"bootmaker 64" 


prg makes boot for common loads 


1 


"spetterm" 


prg 


uses superpet acia 


15 


"datapokeaid" 


prg data entry utility 


17 ' 


"term6s.g" 


prg 




12 


"load&run.pal" 


prg load and run ML programs 


7 


"terminal/vied" 


prg 


vie 20 rs232 terminal 


4 


"I&rcreate.c64" 


prg automatically without 


7 


"term/vied" 


prg 




4 


"I &r create, pet" 


prg necessarily knowing 


3 


■firstdia(3 boot" 


prg 


c64 with autodial 


4 


"I & r create.vic" 


prg start addresses 


4 


"firstdial3" 


prg 




10 


"a/d pet. basic" 


prg analog to digital input 


6 


'miteydialer3 bl" 


prg 


c64 with mitey mo modem 


8 


"a/dpet.pal" 


prg utility with hardware 


3 


"miteydialer3" 


prg 




6 


"chopper" 


prg PAL file line splitter 


1 


'firstterm3 boot" 


prg 


without autodial 


13 


"chopper. pal" 


prg 


54 ' 


"firstterm3" 


prg 




16 


"labelgun" 


prg PAL label re-definition 


3 


'firstdial3 print" 


prg 




31 


"labelgun. pal" 


prg 


132 ' 


'firstdial3doc" 


seq 


documentation 


44 


"r65c02 assembler" 


prg fortheR65C02CPU 


3 


'firstdial3 fkeys" 


seq 


fkey definitions 


9 


"fig 1 new ops" 


seq SEQ files for use with 


1 


'higgyboot +4" 


prg 


plus 4 terminal 


1 


"fig 3a writechrs" 


seq above program 


41 


'higgyterm +4" 


prg 




4 


"fig 3b writechrs" 


seq 


28 bio 


cks free. 






2 

135 bl 


"fig 4 linker eg." 
ocks free. 


seq 
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"transactor disk8" 



1 


"the languages" 


seq 




8 


"aid4" 


prg 




7 


"vicaid.rel" 


prg 




8 


"c64 tiny aid Idr" 


prg 




10 


"supermon2.rer 


prg 




9 


"supermon4.rel" 


prg 




10 


"super vicmon2" 


prg 




10 


"supermon64.v1" 


prg 




10 


"copy-all" 


prg 




10 


"copy-all64" 


prg 




2 


"copy file 64" 


prg 




3 


"transbasic instr" 


prg 




4 


"tb/add.obj" 


prg 




15 


"tb/kernel" 


prg 




23 


"tb/add.src" 


prg 




10 


"add" 


prg 




5 


"screen things" 


prg 




4 


"cursor position" 


prg 




7 


"set sprites" 


prg 




5 


"within" 


prg 




4 


"read sprites" 


prg 




5 


"strip & clean" 


prg 




20 


"scrolls" 


prg 




10 


"labels" 


prg 


TB: basic code labelling 


5 


"token & var" 


prg 


TB: token$(, var( 


8 


"instring" 


prg 


TB: string compare 


7 


"place" 


prg 


TB: scan strings 


7 


"arcfunctions" 


prg 


TB: arcsine, arccos 


3 


"pnntat" 


prg 


TB: print® col.row 


18 


"sound things" 


prg 


TB: sid control 


4 


"verifizer.vic/64" 


prg 




4 


"veriftzer.pet" 


prg 




10 


"sip loader" 


prg 




1 


"stpsys49152" 


prg 




1 


"stpsys828" 


prg 




2 


"RUN ME!" 


prg 


prints subscription form 


3 


"RUN ME TEXT" 


seq 




12 


"RUN ME FORM" 


seq 




1 


4 1 II 


prg 








1 


"1541 spinl" 


prg 


spin 1541 drive motor 


? 


"1541 spin2" 


prg 


uses SHIR for on/off 


i 


"blks free- 1541 " 


prg 


reports 1541 blocks free 


2 


"save-protect" 


prg 


1541 BAM adjuster 


1 


"scratch&save. bas" 


prg 


SAVE® alternative 


4 


" scratch&save . pal " 


prg 




4 


"menu prg" 


prg 


menu driver 


2 


"list freeze" 


prg 




2 


"waving spokes" 


prg 


plus4 graphics demo 


2 


"kaleidoscope" 


prg 


dazzler 


3 


"asctobin.pal" 


prg 


in ML 


2 


"bintoasc.pal" 


prg 




1 


"letter fly!" 


prg 


GET tips 


3 


"18-0un-screw" 


prg 


disk utility 


4 


"star 0.14" 


seq 


for COMAL 0.14 


4 


"star 2.00" 


seq 


for cartridge COMAL 2.00 


4 


"profiler. pal" 


prg 


analyze time consumption 


2 


"profiler. bas" 


prg 


of basic programs 


3 


"profiler. Idr" 


prg 




4 


"hi-res text demo" 


prg 


print scaled hi-res text 


12 


"hi-res text Idr" 


prg 




23 


"hi-res text src" 


prg 




2 


* U 1 1 U t t 1 t I II U l" 


prg 




fttfltftltlllTff 




5 


"bootcomal" 


prg 


boot for COMAL 0.14 


131 


"comal80.can" 


prg 


notice the block count 


5 


"comalerrors" 


seq 




10 


"generror.e.l" 


seq 




6 


"hi" 


prg 




6 


"see'information" 


prg 




6 


"see' instructions" 


prg 




21 


' ' information83 nov 


seq 




42 


"instructions0.14" 


seq 




20 


"togo'book'sample" 


prg 




37 blocks free. 







1 

8 

7 

8 

10 

9 

10 

10 

10 

10 

2 

17 

3 

4 

15 

23 

10 

32 

5 

4 

7 

5 

4 

5 

20 

10 

5 



7 

7 

3 

18 

12 

11 

5 

3 

3 

4 

4 

10 

1 

1 

2 

3 

12 

1 

6 

5 

2 

2 

2 

3 

4 



r » 



i * i 



1 

9 

13 

6 

4 

3 

4 

12 

20 

2 

2 

5 

6 

2 

41 

10 



"transactor disk9" 

'impl. sciences" 

'aid4" 

'vie aid.rel" 

'c64 tiny aid Idr" 

'supermon2.rer 

'supermon4.rel 

'super vicmon2" 

'supermon64.v1" 

copy-all" 

'copy-all64" 

copy file 64" 

'yellow pages 1.2" 

'transbasic instr" 

'tb/add.obj" 

'tb/kernel" 

'tb/add.src" 

'add" 

'use" 

'screen things" 

"cursor position" 

'set sprites" 

'within" 

'read sprites" 

'strip& clean" 

'scrolls" 

labels" 

'token & var" 

'instring" 

'place" 

'arcfunctions" 

'printat" 

'sound things" 

'move & fill" 

'dos support" 

'linecalc" 

'beep" 

'stripper" 

'verifizer.vic/64" 

'verifizer.pet" 

'stp loader" 

l stpsys49152" 

'stpsys828" 

'RUN ME!" 

'RUN ME TEXT" 

'RUN ME FORM" 



quake" 

'errcat 64/20" 
rt justify pet" 
drive speed" 
'basic stp" 
'gauss elim" 
lottery- 
swords of doom" 
'sum of squares 1" 
'sum of squares 2" 
'sum of squares 3" 
projector" 
'hires" 
'bigprint" 
'timer64.bas" 
'timer64.pal" 
'projectile pet" 
'projectile 64" 
'compl.pal" 
'comp2.pal" 
'comp1.obj",8,8: 
, comp2.obj" 1 8,8: 
'koala split" 
'anim split" 
'vars-indestruct" 
'unassembler" 
'supersound" 



seq 

prg 

prg 

prg 
prg 
prg 
prg 

prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 

seq 
seq 

prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 
prg 

prg 
prg 

prg 
prg 
prg 
prg 



c64 disk utility 



TB: like add. only faster 



TB: memory transfers 
TB: dos command wedge 
TB: for gotos & gosubs 
TB: SID beep 
removes PAL comments 



dazzler 

catalog routine 
right justify demo 
alter drive parameters 
seq to prg in basic 
gaussian elimination routine 
lottery numbers generator 
dazzler 

summing techniques to 
help overcome problems 
with binary inaccuracies 
plot graphs with 3 dimensions 
for use with projector 
for use with projector 
microsecond timer 

bounce plotter 
bouncing sprite plotter 
data compressor programs 



for use with compressor, splits 
koala/animation station pictures 
edit without losing variables 
make source code from object 
SID sound utility 



116 blocks free. 
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News BRK 



Submitting NEWS BRK 
Press Releases 

If you have a press release which you 
would like to submit for the NEWS BRK 
column, make sure that the computer or 
device for which the product is intended is 
prominently noted. We receive hundreds 
of press releases for each issue, and ones 
whose intended readership is not clear 
must unfortunately go straight to the trash 
bin. It should also be mentioned here that 
we only print product releases which are in 
some way Applicable to Commodore 
equipment. 

Transactor News 

Transactor Subscription Prices... 

Are remaining at the old price of only 
$15.00 per year, even with the new News- 
stand price of $3.50/copy. Now a subscrip- 
tion to The Transactor saves you even 
more - 29% over the newsstand price! Now 
is the time to finally get around to sending 
in that subscription card you've been hold- 
ing on to. 



Viewtron Starter Kit 

The Viewtron Starter Kit will be available 
in Canada from Transactor Publishing. The 
price is about the same after the exchange 
rate, but experience has shown that order- 
ing goods from the U.S. into Canada can 
take longer than migrating tortoises. Also, 
phone orders from Canada mean a long- 
distance call to Miami since toll-free 1-800 
numbers don't cross international borders. 
And speaking of borders, well. . . we all 
know what happens to packages that even 
look dutyable. 

The Starter Kit is a nifty package, too. The 
software is terrific. It comes with files con- 
taining several phone numbers for the ma- 
jor networks and a program that displays 
those within your area code. Once your ID 



and Password are recorded, signing on is 
simply a matter of loading the Viewtron 
communications program and hitting one 
key. You'll like the manual - 46 pages of 
handy reference and instructions for every- 
thing from using Viewtron CB to dumping 
to printer, disk, etc. For more on Viewtron, 
see the article in this issue. 

So if you live in the U.S., call Viewtron's toll 
free line (see next item). But if you're order- 
ing the kit for delivery within Canada, you 
can use our postage paid order form and let 
us arrange for the first half of it's journey. 



Viewtron Now Available 
To Commodore Owners 

Viewdata Corporation of America is now 
offering its Viewtron videotex service to 
Commodore personal computer owners in 
most cities throughout Canada and the U.S. 

Viewtron subscribers can save time gather- 
ing valuable information. They can get up- 
to-the-minute news, weather forecasts, 
continuous sports scores, current stock 
prices, airline schedules and fares, con- 
sumer reports and movie and book re- 
views. 

Viewtron subscribers can also send elec- 
tronic messages, and, through a growing 
list of banks, pay bills and get account 
balances. They even have access to an up- 
to-date encyclopedia. 

In addition to the basic Viewtron service, 
there are enhanced services for Commo- 
dore subscribers. Some of these include: 

• Commodore software reviews and ratings 

• Software and hardware advice from ex- 
perts and other subscribers 

• Discounts on top-selling Commodore 
software 

• Discounts on computer hardware 

• Commodore special interest clubs 



Viewtron is the first complete on-line serv- 
ice that runs in colour on Commodore 64s. 
To get Viewtron, Commodore owners will 
need to purchase the Viewtron Software 
Starter Kit for $9.95 (US). The kit includes a 
diskette with communications software, 
one free hour of service, an ID and pass- 
word, and a user manual. 

Subscribers will pay only for their use of the 
service. No monthly minimums will be 
charged. Rates are: nine cents a minute, 
weekday nights (after 6 p.m.) and week- 
ends; and 22 cents a minute weekdays. 
And, unlike other services, there is no 
extra charge for subscribers using 1200- 
baud modems. (Prices may vary in some 
cities.) 

Viewtron also runs on the Commodore 
1 28, and will run on the Amiga in 1 986. For 
more information, call the Viewdata Corpo- 
ration at 1-800-272-5400 

More Viewtron News 

Commodity traders almost anywhere in 
the U.S. can now keep up with the volatile 
and complex futures market with 
VIEWTRON®, the electronic information 
service offered by Viewdata Corporation of 
America, Inc. 

VCA offers trading prices of nearly 100 
commodities, ranging from aluminum to 
wheat, updated every 10 minutes. Prices 
are gathered from 14 exchanges by Com- 
modity News Services, Leawood, Kansas. 
Both companies are owned by Knight- 
Ridder Newspapers. 

When a subscriber requests a price quota- 
tion, all of the contracts in a given com- 
modity are listed, with their opening, high, 
low and last available prices, along with the 
change from the previous settlement price. 

Contact: John L. McCarthy, 

V.P. Business Information Services 

(305) 674-3499 
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West Coast Commodore Show II 

The West Coast Commodore Association 
proudly announces "THE COMMODORE 
SHOW II" to be held on Saturday, February 
8th and Sunday, February 9th, 1986 from 
10:00 am to 6:00 pm at the Cathedral Hill 
Hotel in San Francisco. 

This Commodore-specific trade show will 
feature the latest in software and hardware 
for the vast Commodore users market. THE 
COMMODORE SHOW II will cover the 
newest Commodore machines; the Amiga 
and the C-128 as well as the 64 and Plus 4. 

The show will also feature noted Commo- 
dore experts speaking on graphics, tele- 
communications, music, business 
applications and other subjects of interest 
to Commodore users. 

The first COMMODORE SHOW held in 
February of 1985 drew 5200 attendees and 
next year's show promises to be bigger and 
better. 

For information on booth space and ad- 
vance ticket sales, interested users groups 
and hardware/software vendors should 
contact: 

West Coast Commodore Association 

P.O. Box 210638 

San Francisco, CA 94121 

(415)982-1040 

Commodore 128 On Dealer Shelves 

Toronto, Ont. — Commodore Business Ma- 
chine Limited announced that the Commo- 
dore 128 Personal Computer is in stores 
across Canada effective October 1. Over 
1,000 retail outlets including mass mer- 
chandisers, department stores and com- 
puter dealers, will carry the new C128. 

The Commodore Ham's Companion 

Springfield, Illinois — QSKY Publishing in- 
troduces a new book designed to fill the 
need for information on using Commodore 
computers in the amateur radio "ham 
shack". "The Commodore Ham's Compan- 
ion", written by Jim Grubbs, K9EI, helps 
show the way toward effective use of Com- 
modore machines for this purpose. 

The book's fourteen chapters address 
many subjects, including: 

• Selecting a Commodore machine for the 
ham shack, or upgrading your present 
system. 



• The basics behind programming for data 
including RTTY, Morse, AMTOR and 
Packet. 

• The ins and outs of information manage- 
ment, like log, dupe and awards pro- 
grams, are explained. 

• Why Commodore machines are the easi- 
est to interface 

• "Telehamming" - connecting to amateur 
radio information by telephone line. 

• Where to find specialized software for 
slow scan television, satellite tracking 
and many other exotic applications. 

• How to obtain a dramatic increase in 
speed without learning machine lan- 
guage. 

Additionally, a set of valuable appendices 
include over 80 sources for software and 
hardware for amateur radio applications. A 
bibliography with over 60 magazine artic- 
les and columns on Commodore com- 
puters in the radio shack is also included. A 
glossary and other resource list rounds out 
the book. 

Retail price for the 160-page paperback is 
$15.95 U.S. plus $2.50 for shipping and 
handling. For more information or to order, 
contact: 

QSKY Publishing 
P.O. Box 3042 
Springfield, IL 
USA 62708 



Starting Your Computer 
Services Business 

J.V. Technologies, Inc. announces the re- 
lease of the new book Starting Your Com- 
puter Services Business by Dr. John 
Desiderio for those interested in using their 
computer to earn extra income. This com- 
prehensive manual discusses the various 
phases and stages of starting a business, 
examining pitfalls and reviewing the 
proper steps to successfully organizing a 
new business. 

Various business formats, such as, sole pro- 
prietorships, partnerships and corpora- 
tions, are examined in detail with a clear 
discussion of the advantages and disadvan- 
tages of each. The book not only reviews 
the typical computer services of consulting 
and word processing, but extends beyond 
these to discuss how activities such as 
teaching, telecommunications, article and 
book writing, software development, etc. 
can also contribute to starting and main- 
taining a flourishing computer services 
business. Persons interested in working 



either part- or full-time, from their home or 
in a small office, will find this book to be an 
invaluable resource. 

Also included is a separate chapter on ad- 
vertising and a complete section of repro- 
ducible forms for keeping track of your 
business activities, such as advertisements, 
orders, etc. The introductory cost of the 
publication is $9.95 (US) and a 30 day 
money-back guarantee is also offered. Con- 
tact: 

J.V. Technologies, Inc. 
P.O. Box 563 
Ludington, MI 49431 
(616)843-9512 

1986 Printer Directory 
and Specification Guide 

Gorham International is initiating the 
"1986 Printing Directory and Specification 
Guidebook Series". The series consists of 
four volumes: 

TITLE Scheduled Publication Date 

Thermal Printing Oct. 31, 1985 

Toner Based Printing Nov. 30, 1985 

Colour Hard Copy Printer Dec. 31, 1985 
Ink Jet Printing Jan. 31, 1986 

Primary features of this four volume series 
include: 

• Specifications of each printer system pre- 
sented in a standard, easy to use format 
from Gorham's computerized database 

• Inclusion of actual manufacturer's prod- 
uct literature and print samples in all 
possible cases. 

• Gorham's computerized database pro- 
vides a detailed summary and overview 
section in each publication. This enables 
useful categorizations of competitive 
products and grouping of products by 
selected specifications, applications, etc. 

• Hardbound reference volumes designed 
to aid current and potential users in their 
identification, evaluation and selection of 
printer products. These limited edition 
publications of 500 copies each provide a 
unique presentation format by which 
product manufacturers can provide prac- 
tical information, literature and samples 
to marketplace. 

Vicki Woodbrey, who manages Gorham's 
database, states that "all manufacturers 
and suppliers of hardware, consumables, 
components, services, etc. are encouraged 
to contact her to assure their product infor- 
mation has been incorporated into the 
Gorham database." 
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Each of the four volumes are available 
individually at a price of $250.00 U.S. in- 
cluding shipping for prepaid orders (addi- 
tional $25.00 for overseas airmail). For 
additional information or to verify product 
inclusion, please contact: 

Alvin G. Keene or Vicki Woodbrey 
GORHAM INTERNATIONAL INC. 
P.O. Box 8 
Gorham, ME 04038 



To order, specify computer system and 
which disks you want, add $2.00 ($5.00 for 
the six-disk set) for postage, and specify 
UPS or first class mail delivery. 

SubLOGIC Corporation 
713 Edgebrook Drive 
Champaign, IL 61 820 
(217)359-8482 

Order Line; 1-800-637-4983 



ZIPP-CODE-48 is available for $49.95 (US). 
Order from: 

Hughes Associates Software 
45341 Harmony Lane 
Belleville, MI 481 11 
(313)699-1931 



Automated Telecommunications 
Package For The 64 and 128 



Scenery Disks Now Available 
for Flight Simulator II and Jet 

SubLOGIC is pleased to announce the re- 
lease of six different Scenery Disks for the 
Commodore 64 and IBM PC. These Scen- 
ery Disks expand the potential flying envi- 
ronment of SubLOGIC flight simulation 
products including Flight Simulator II, Jet, 
and the (IBM) Microsoft Flight Simulator. 

Six Scenery Disks covering the entire west- 
ern half of the Continental United States 
are now available. Each disk covers a geo- 
graphical region of the country, and in- 
cludes the major airports, radio-nav aids, 
cities, highways, rivers, and lakes located 
in that region. Enough detail is included on 
each disk for either visual or instrument 
cross-country navigation. 

Each Scenery Disk package comes com- 
plete with appropriate sectional charts plus 
full airport and nav-aid directories. Individ- 
ual Scenery Disk packages are available for 
$19.95 (US) each. The Western U.S. six- 
disk set, packaged in a vinyl three-ring 
notebook with dividers, may be purchased 
for $99.95 (US). 



ZIPP-CODE-48 Development 
System For C-64 

Now you can write code on the Commo- 
dore 64/ 1 28 for smart peripherals, robotics 
and other applications using the 8048/ 
8748 family of microcontrollers. 

The ZIPP-CODE-48 Cross Assembler is a 
powerful, symbolic assembler for the 8048 
microprocessor family. In addition to the 
basic instruction set used with the 8048/ 
8748 NMOS microprocessors, the ZIPP- 
CODE-48 System correctly 
cross-assembles, disassembles, and simu- 
lates four other related instruction sets. 
(8021, 8022, 80C48/49/50.) 

Additional features of the assembler are: a 
built-in simulator for debugging; works 
with standard BASIC-format source files; 
excellent error-detection; works with tape 
or disk, with or without printer. 

Extra utilities included with the package 
are a print utility with with alphabetical 
cross-reference symbol table; a line disas- 
sembler; a machine-code save utility; and a 
full-featured machine code monitor pro- 
gram. 




Progressive Peripherals & Software, Inc. of 
Denver, Co. has announced the introduc- 
tion of BOBSTERM PRO. a uniquely power- 
ful telecommunication software program 
for the Commodore 64 and 128 personal 
computers. BOBSTERM PRO is unique be- 
cause it allows complete user control over 
every aspect of telecommunications. 

Every feature of BOBSTERM PRO can be 
automated through the use of macro pro- 
gramming. Log-on, password entries, auto- 
start, auto-answer, auto-dial, and 
transmission of files are a few of the many 
operations that can be reduced to a single 
key stroke. Linked together, these macro 
commands make continuous BBS mainte- 
nance simpler and a great deal faster. Com- 
plete screen editing, formatting, screen 
colours and status line information are 
available to the user. Seven custom charac- 
ter sets are built in for hard copies, with 
space reserved for three user-defined fonts. 

BOBSTERM PRO is compatible with nine 
popular modems and can be easily adapted 
to many more. Data transfer can be accom- 
plished through the use of straight ASCII, 
straight binary, sequential line with prompt 
wait, XON/XOFF, Punter protocol, XMO- 
DEM protocol, or entire disk (C64 to C64). 
With the special FILL feature, the normal 
28.5 K memory can be expanded to handle 
94 K files. BOBSTERM PRO is also compati- 
ble with all COmmodore and second party 
computer hardware. Contact: 

Progressive Peripherals & Software, Inc. 
464 Kalamath Street 
Denver, CO 80204 
(303)825-4144 



More 64 Software From Progressive 

Progressive Peripherals & Software, North 
American agent for Precision Software of 
Surrey, England, is pleased to announce 
SUPERBASE STARTER, a user friendly soft- 
ware database for the Commodore 64 and 
128 personal computers. 
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SUPERBASE STARTER is an electronic fil- 
ing cabinet to store, retrieve, update, dis- 
play, and print information in a multitude 
of ways. SUPERBASE STARTER is a begin- 
ning version of the bestselling SUPER- 
BASE. The program runs with application 
starter packs, making it ideal for non- 
technical users. The package comes with a 
manual written with this user in mind. 
Easy to understand menus of commands 
and built-in Help Screens are designed to 
ease the user into the program with a 
minimum of stress. An audio-learning cas- 
sette is also available, upon registration, as 
an excellent aid to learning SUPERBASE 
STARTER. 

Another addition to the growing line of 
"SUPER" software programs is SUPER- 
TYPE for the CV-64 and 128. SUPERTYPE 
is a complete educational tool, addressing 
the developmental needs of the informa- 
tion age. SUPERTYPE builds touch typing 
skills in 19 tiered lessons, each leading to 
the next. Colour tabs are provided to delin- 
eate each finger's relationship to a group of 
keys on the keyboard. A built-in metro- 
nome encourages proper rhythm to in- 
crease speeds. 

SUPERTYPE provides accurate assessment 
of the student's progress through 'Results 
Screens' at the end of each session. Times 
are calculated in sentences typed, errors 
during exercises, and words per minute 
corrected and uncorrected. SUPERTYPE 
then points out which fingers need to be 
practised and which fingers are making the 
most mistakes. The steno-style SUPER- 
TYPE manual stands alone, so the student 
can progress easily through the lessons 
without hunting for instructions. 



Progressive Distributes 
Commodore's 8023P Printers 



Progressive Peripherals & Software, Inc. 
has become a major distributor for Commo- 
dore's 8023P Printer. After successfully 
opening the market for Commodore's SFD 
1001 disk drive, Progressive has decided to 
distribute the 8023P Printer. In the Com- 
modore microcomputer industry, the 
8023P Printer is best known for its high 
speed and 15 V2 inch wide carriage. The 
printer has both business applications and 
home use advantages. The 8023P Printer is 
ideal for business use, as it features these 
options: condensed print, Commodore 
graphics, wide carriage for printing out 
large spread sheets, and 150 CPS high 
speed. The advantages for home use of the 
8023P Printer are a near letter-quality 



mode, longevity, and it is twice as sturdy as 
the average printer. The 8023P Printer is 
fully compatible with word processing, da- 
tabase, and other business and personal 
software. The printer will retail for $299.00 
(US). 



Progressive Releases E-Link 

Progressive Peripherals & Software, Inc. is 
shipping their newly released Commodore 
serial to IEEE interface. The E-Link is de- 
signed for compatibility with Commodore 
IEEE peripherals and is totally transparent 
to the Commodore 64. According to Kris 
Halverson, Product Manager, "There is a 
strong demand for an interface that gives 
the consumer access to the many high- 
powered Commodore peripherals on the 
market. The customer will need only one 
E-Link regardless of the number of IEEE 
peripherals in use." 

Halverson used computer aided design to 
ensure the rugged reliability of E-Link. E- 
Link has the following features: uses no 
internal C-64 memory; independent power 
supply; and microprocessor controlled. 
The response to E-Link by Commodore 
dealers has been strong because E-Link 
provides needed accessibility to the many 
available Commodore disk drives and 
printers. The interface will retail for $99.95 
(US). Contact: 

Progressive Peripherals & Software, Inc. 
2186 South Holly 
Denver, Colorado 80222 
(303)759-5713 



Low Cost Temperature Monitoring 
For The Commodore 64 

Applied Technologies, Inc. announces a 
breakthrough in low cost data logging and 
temperature monitoring with Commodore 
computers. 




Features include display of 8 or 1 6 temper- 
ature channels, temperature range of -15 
degrees to +180 degrees Fahrenheit at 
approximately 1 degree resolution, elec- 
tronic interface plugs directly into the joy- 
stick port, inexpensive weather-protected 
sensors, and menu-driven software in- 
cluded. 

The 8-channel system starts at $89.95 (US). 
For more information, contact: 

Applied Technologies, Inc. 
Computer Products Division 
Lyndon Way, Kittery, Maine 03904 



Communications Chips Seen 
Rising in Sales As Semiconductor 
Industry Continues to Slow 

Norwalk, CT — Very few people still be- 
lieve that 1985 will be a good year for the 
semiconductor industry. In fact, some esti- 
mates say the market will be down close to 
20 percent this year alone. But integrated 
circuits for communications equipment 
will see a 30 percent average growth rate 
for the rest of this decade, according to a 
just-published 157-page research report 
from International Resource Development 
Inc., a Norwalk, CT market research and 
consulting firm. 

The report, entitled Telecommunications 
Integrated Circuits ( ff 659), covers over fifty 
major players in the communications IC 
marketplace, and predicts that even when 
growth resumes in the semiconductor mar- 
ket as a whole, telecommunications and 
data communications integrated circuits 
will continue to outpace the general chip 
market. 

Further details of the $1,650.00 report, in- 
cluding a free table of contents and a de- 
scription of the topics covered, are 
available from: 

International Resource Development Inc. 

6 Prowitt Street 

Norwalk, CT 06855 

(203) 866-7800; Telex 64 3452 
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PAYS 
$40 



per page for articles 

We're also looking for 
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drawn cartoons! 

Send all material to: 

The Editor 

The Transactor 

500 Steeles Avenue 

Milton, Ontario 

L9T3P7 



Volume 6 Editorial Schedule 



Issue* Theme 


Copy Due 


Printed 


Release Date 


1 


More Aids & Utilities 


Febl 


Mar 22 


April 1/85 


2 


Communications & Networking 


Aprl 


May 24 


June 1 


3 


Languages 


Jun 1 


Jul 26 


August 1 


4 


Implementing The Sciences 


Aug 1 


Sep 20 


October 1 


5 


Hardware & Software Interfacing 


Octl 


Nov 22 


December 1 


6 


Real Life Applications 


Dec 1 


Jan 24 


February 1/86 



Volume 7 Editorial Schedule 

1 ROM Routines / Kernel Routines Feb 1 Mar 21 April 1 



2 


Games From The Inside Out 


Aprl 


May 23 


June 1 


3 


Programming The Chips 


Jun 1 


Jul 25 


August 1 


4 


Gadgets and Gizmos 


Aug 1 


Sep 26 


October 1 


5 


Simulations and Modelling 


Octl 


Nov 21 


December 1 


6 


Programming Techniques 


Decl 


Jan 23 


February 1/87 



Advertisers and Authors should have material submitted no 

later than the Copy Due* date to be included 

with the respective issue. 



COMAL INFO 
if you have COMAL— 

we have information 



BOOKS: 

• COMAL From A TO Z, $6.95 

• COMAL Workbook, $6.95 

• Commodore 64 Graphics With COMAL, $14.95 

• COMAL Handbook, $18.95 

• Beginning COMAL, $22.95 

• Structured Programming With COMAL, $26.95 

• Foundations With COMAL, $19.95 

• Cartridge Graphics and Sound, $9.95 

• Captain COMAL Gets Organized, $19.95 

• Graphics Primer, $19.95 

• COMAL 2.0 Packages, $19.95 

• Library of Functions and Procedures, $19.95 

OTHER: 

• COMAL today subscription, 6 issues, $14.95 

• COMAL 0.14, Cheatsheet Keyboard Overlay, $3.95 

• COMAL Starter Kit (3 disks, 1 book), $29.95 

• 19 Different COMAL Disks only $94.05 

• Deluxe COMAL Cartridge Package, $128.95 

(includes 2 books, 2 disks, and cartridge) 

ORDER NOW: 

Call TOLL-FREE: 1-800-356-5324 ext 1307 visa or MasterCard 
ORDERS ONLY. Questions and information must call our 
info Line: 608-222-4432. All orders prepaid only— no COD. 
Add $2 per book shipping, send a SASE for FREE info 
Package or send check or money order in us Dollars to: 

COMAL USERS CROUP, U.S.A., LIMITED 

5501 croveland Ten, Madison, wi 53716 

trademarks Commodore 64 of commodore Electronics Ltd ; 
Captain comal of COMAL users Croup, U.S.A., Ltd 



JOIN TPUG 

The largest Commodore Users Group 

Benefit from: 

Access to library of public domain software 
for C-64, VIC 20 and PET/CBM 

Magazine (10 per year) with advice from 

Jim Butterfield 

Brad Bjomdahl 

Liz Deal 



TPUG yearly memberships: 

Regular member (attends meetings) 
Student member (full-time, attends meetings: 
Associate (Canada) 
Associate (U.S.A.) 

Associate (Overseas — sea mail) 
Associate (Overseas — air mail) 



-$35.00 Cdn. 

— $25.00 Cdn. 
-$25.00 Cdn. 
-$25.00 U.S. 

— $30.00 Cdn. 
-$35.00 U.S. 

— $45.00 U.S. 



FOR FURTHER INFORMATION: 

Send $1.00 for an information catalogue 

(tell us which machine you use!) 

To: TPUG INC 
DEPT. A, 

101 DUNCAN MILL RD., SUITE G7 
DON MILLS, ONTARIO 
CANADA M3B1Z3 



The Transactor presents, 

The Complete Commodore 

Inner Space Anthology 



Tfes Comnlete 




Over 7,000 Delivered Since March '85 

Postage Paid Order Form at Center Page 



